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">会员信息->查看</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 %>