admin_reg.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
        response.redirect "default.asp"
response.end
end if
admintop()
Dim admin_flag
admin_flag=",28,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
if request("action")="change" then
set rs=server.CreateObject("adodb.recordset")
sql="select info,info_lan1 from [56770_system] where id=1"
rs.open sql, conn, 1, 3
rs("info")=safereplace(request.form("info"))
rs.update
rs.close
response.write "会员注册协议更新完毕！"
response.write "<br><br><br>"
response.write "<a href=admin_reg.asp>返回</a>"
else
%>
<table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
 <td height=27 class=classtop align=center>会员注册协议</td>
</tr>
<form method="POST" action="admin_reg.asp?action=change">

<%
set rs=server.CreateObject("adodb.recordset")
sql="select info,info_lan1 from [56770_system]"
rs.open sql, conn, 1, 1%>
<tr>
<td width="90%" class=classtd>
<textarea name="info" rows="24" cols="75" id="info"><%=rs("info")%></textarea>
</td>
</tr>
<tr>
<td class="classfooter" height="30" align="center">
<input type="submit" value=" 提交 " name="B1" class="button">
<input type="reset" value=" 清除 " name="B12" class="button">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
rs.close:set rs=Nothing
end if
end if
%>