sys_upmemberaction.asp
来自「直接解压即可 都是asp源码 超经典的啊」· ASP 代码 · 共 69 行
ASP
69 行
<!--#include file="conn.asp"-->
<!--#include file="top.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 sysuser where sysuser='"& username &"' and id=" & id &" and admintyp='技术管理员'"
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
id=request.querystring("id")
ok="已修改"
ok2="已绑定"
%>
<html>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<%
if request.querystring("actions")="hosturl" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from member_urlaction where id="& id &""
rs.open sql,conn,3,3
rs("actions")=ok
rs.update
response.write"<div align=center class=f1><br><br>修 改 成 功！</div>"
end if
if request.querystring("actions")="hostbonding" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bondingurl where id="& id &""
rs.open sql,conn,3,3
rs("bondingok")=ok2
rs.update
response.write"<div align=center class=f1><br><br>修 改 成 功！</div>"
end if
if request.querystring("actions")="ftp" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from member_ftpaction where id="& id &""
rs.open sql,conn,3,3
rs("actions")=ok
rs.update
response.write"<div align=center class=f1><br><br>修 改 成 功！</div>"
end if
if request.querystring("actions")="uphostsize" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from member_uphostsize where id="& id &""
rs.open sql,conn,3,3
rs("actions")=ok
rs.update
response.write"<div align=center class=f1><br><br>修 改 成 功！</div>"
end if
%>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
</body>
</html>
<% end if
rs.close
set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?