www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/huiyuanmod.asp

    <%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="include.asp"-->
<%
	Dim MM_FindSql             '查询执行语句
	Dim MM_TableName           '表名
	Dim MM_ReturnPath          '执行成功后返回的路径
	Dim MM_DatabaseStr         '数据库各项
	Dim MM_FormStr             '表单各项
	Dim MM_SqlQuery            '最终执行语句
	
	MM_TableName = "huiyuan"
	MM_FindSql = "select * from " & MM_TableName & " where sqlindex=" & request.querystring("id")
	
	set rs = conn.Execute(MM_FindSql)
	
	MM_ReturnPath = "huiyuan.asp"

	if Request.Form("MM_update") <> "" then
		MM_DatabaseStr  = "ftext1|value"
	    MM_FormStr = "sqltext1|',none,''"
		MM_SqlKey = "sqlindex"
		MM_SqlValue = Request.Form("fid")
		if Request.Form("MM_update") <> "" then
			MM_SqlQuery = GetUpdateSql(MM_TableName,MM_DatabaseStr,MM_FormStr,MM_SqlKey,MM_SqlValue)
			'response.Write(MM_SqlQuery)
			'response.End()
			conn.Execute(MM_SqlQuery)
			response.redirect(MM_ReturnPath)
		end if
	end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改新闻</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0" bgcolor="#799AE1">

  
<table width="100%" height="100%" border="0" align="center" bgcolor="#668ED4">
  <tr> 
      
    <td height="103" colspan="2" align="center"> <img src="images/toplogo.gif" height="60"> 
    </td>
    </tr>
	<tr> 
      <td colspan="2">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/menu_bk.gif">
        <tr> 
          <td height="23" valign="bottom" background="images/menu_bk.gif"><font color="#FFFFFF">会员信息-&gt;查看</font></td>
          <td valign="bottom" background="images/menu_bk.gif"><a href="<%=MM_ReturnPath%>">返回</a></td>
        </tr>
      </table>
	 </td>
	 </tr>
	 <tr> 
      <td colspan="2">
	  <form ACTION="#" METHOD="POST" name="form1">
        <table width="100%" height="100%" align="center" cellpadding="1" cellspacing="1" bordercolor="#ADADC9" bgcolor="#666699">
          <tr bgcolor="#799AE1"> 
            <td>会员名:</td>
            <td colspan="-2"><%=rs.Fields.Item("username")%> </td>
          </tr>
          <tr bgcolor="#799AE1">
            <td>密码:</td>
            <td colspan="-2"><%=rs.Fields.Item("password")%></td>
          </tr>
          <tr bgcolor="#799AE1"> 
            <td>真实姓名:</td>
            <td colspan="-2"><%=rs.Fields.Item("realname")%></td>
          </tr>
          <tr bgcolor="#799AE1"> 
            <td>所在部门或职务:</td>
            <td colspan="-2"> <div align="left"><%=rs.Fields.Item("suozaibumen")%> </div></td>
          </tr>
          <tr bgcolor="#799AE1"> 
            <td>省份:</td>
            <td colspan="-2"> <div align="left"><%=rs.Fields.Item("province")%> </div></td>
          </tr>
          <tr bgcolor="#799AE1"> 
            <td>城市:</td>
            <td colspan="-2"><%=rs.Fields.Item("city")%></td>
          </tr>
          <tr bgcolor="#799AE1"> 
            <td>性别:</td>
            <td width="90%" colspan="-2"><%if rs.Fields.Item("sex")=1 then 
			response.Write("男")
			else
			response.Write("女")
			end if%> </td>
          </tr>
		  <tr bgcolor="#799AE1"> 
            <td>联系电话:</td>
            <td width="90%" colspan="-2"><%=rs.Fields.Item("tel")%> </td>
          </tr>
		  <tr bgcolor="#799AE1"> 
            <td>传真号码:</td>
            <td width="90%" colspan="-2"><%=rs.Fields.Item("fax")%> </td>
          </tr>
		  <tr bgcolor="#799AE1"> 
            <td>电子邮件:</td>
            <td width="90%" colspan="-2"><%=rs.Fields.Item("email")%> </td>
          </tr>
		  <tr bgcolor="#799AE1"> 
            <td>详细地址:</td>
            <td width="90%" colspan="-2"><%=rs.Fields.Item("address")%> </td>
          </tr>
          <tr bgcolor="#799AE1"> 
            <td>公司名称:</td>
            <td colspan="-2"><%=rs.Fields.Item("danwei")%></td>
          </tr>
		  <tr bgcolor="#799AE1"> 
            <td>公司网址:</td>
            <td colspan="-2"><%=rs.Fields.Item("url")%></td>
          </tr>
          <tr bgcolor="#799AE1"> 
            <td height="20" colspan="2"><div align="center"><a href="<%=MM_ReturnPath%>"><font color="#FFFFFF">返回</font></a> 
              </div></td>
          </tr>
        </table>
        </form>
		</td>
	 </tr>
	 <tr> 
      <td colspan="2">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><div align="left">注意:请正确对以上内容进行修改!</div></td>
          </tr>
        </table>
        
      </td>
    </tr>
  </table>
</body>
</html>
<%
	set rs = nothing
%>