manage.asp

一个非常优秀的自动建站程序

<TABLE WIDTH="760" BORDER="0" ALIGN="CENTER"><TR><TD>
<!--#include file="top.asp"-->
<%
action = request("action")
if (action="action") then
if Trim(Request.Form("UserId"))="" then Response.Redirect ("error.asp?id=004")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select ID from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Redirect ("error.asp?id=011")
response.end
else
session("ID")=rs("ID")
response.redirect "../manage.asp"
response.end
end if
rs.close
Set rs = Nothing
end if
%>
<table width="100%" align="center" bgcolor="#000000" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">
<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#000000>
<form name=AddForm action="?action=action" method=post>
<tr>
<td bgcolor=ddeeff align=center width=20%>
身份切换
</td>
<td bgcolor=FFFFFF align=center width=30%>
<input name="UserId" style="width:120px" value="用户名称">
</td>
<td bgcolor=FFFFFF align=center width=20%>
<input type="submit" value=" 转 换 " name="Submit">
</td>
<td bgcolor=ddeeff align=center width=20%>
<a href="ErrorList.asp">系统容错</a>
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>

</TD></TR></TABLE>