hostedit_user.asp

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

<%
WebID = Request("WebID")
if (WebID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<%
if isInteger(trim(Request.Form("UserID")))=false then Response.Redirect("error.asp?id=004")
set rs=server.createobject("adodb.recordset")
sql="select ID from [Agent_User] where id=" & trim(Request.Form("UserID"))
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=011")
rs.close
sql="select * from [Host_OK] where WebID=" & WebID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=011")
rs("UserID")=trim(Request.Form("UserID"))
rs.update	
sql1="Update [Domain_OK] set UserID="&trim(Request.Form("UserID"))&" where WebID="&WebID
conn.Execute(Sql1)
set conn=nothing
set rs=nothing
Response.Redirect("UserHostEdit.asp?WebID=" & WebID)
%>