admin_addupshouming.asp

直接解压即可 都是asp源码 超经典的啊

<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<%
hostname=server.htmlencode(request.form("hostname"))
hostcount=server.htmlencode(request.form("hostcount"))
money=server.htmlencode(request.form("money"))
heads=server.htmlencode(request.form("heads"))
linksize=server.htmlencode(request.form("linksize"))
sys=server.htmlencode(request.form("sys"))
hid=server.htmlencode(request.form("hid"))
scripts=server.htmlencode(request.form("scripts"))
con=server.htmlencode(request.form("con"))
ssl=server.htmlencode(request.form("ssl"))
datebasesize=server.htmlencode(request.form("datebasesize"))
logfile=server.htmlencode(request.form("logfile"))
emlsize=server.htmlencode(request.form("emlsize"))
emlcount=server.htmlencode(request.form("emlcount"))
typid=server.htmlencode(request.form("typid"))
id=server.htmlencode(request.form("id"))
hosttyp=server.htmlencode(request.form("hosttyp"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hostcontent where id="&id&""
rs.open sql,conn,3,3
if rs.eof then
response.write" 不存在此条目"
else
rs("hostname")=hostname
rs("hostcount")=hostcount
rs("money")=money
rs("heads")=heads
rs("linksize")=linksize
rs("sys")=sys
rs("hid")=hid
rs("scripts")=scripts
rs("con")=con
rs("ssl")=ssl
rs("datebasesize")=datebasesize
rs("logfile")=logfile
rs("emlsize")=emlsize
rs("emlcount")=emlcount
rs("typid")=typid
rs.update
response.Redirect"admin_uphostshouming.asp?typid="& typid &"&hosttyp="& hosttyp &"&cmd=up&id="& rs("id") &""
end if
%>
<% end if
rs.close
set rs=nothing
set conn=nothing
%>