noreg.asp

来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 40 行

<!-- #include file="setup.asp" -->
<% validate "Login.asp",5
if Request.ServerVariables("request_method")="POST" then
textfield=Request.Form("textfield")
FunID=Request.Form("FunID")
conn.execute("update Functions set FunctionInfo='"&textfield&"' where FunctionID="&FunID)
response.redirect "?menu="&Request.QueryString("Menu")
Response.end
End if

Call Top
Call table()
Response.Write("<style><!--	TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style><br>")
Select Case Trim(Request("menu"))
Case "NBname"
Tab "保留用户名管理&nbsp; [输入您准备保留的用户名并用&quot;,&quot;隔开！]","您目前保留的用户名如下：",conn.execute("Select FunctionInfo from Functions where FunctionID=21")(0),"21"
Case "NBemail"
Tab "保留Email管理&nbsp; [输入您准备保留的Email用&quot;,&quot;隔开！]","您目前保留的Email如下：",conn.execute("Select FunctionInfo from Functions where FunctionID=22")(0),"22"
Case "BadIP"
Tab "禁止注册IP&nbsp; [输入您准备禁止注册的IP用&quot;,&quot;隔开！]","以下IP段将不能注册,请小心输入",conn.execute("Select FunctionInfo from Functions where FunctionID=23")(0),"23"
End Select
Htmlend


Sub Tab(Msg1,Msg2,Msg3,Msg4)%>
	<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="0" width="100%" border="1" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse">
	<tr><td height="25" background=images/title_sub.gif style="border-right: 0px none; border-top: 0px none"> 
	<b>&nbsp;■ </b><%= Msg1 %></td>
	</tr></table>
	<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
	<TR> 
	<TD  height=12 width="75%" >&nbsp;<img src="images/2.gif" width="60" height="9"><%= Msg2 %></TD>
	</TR><TR><TD  height=13 ><table width="100%" border="0">
	<form name="form1" method="post">
	<tr><td> <div align="center"><input name="textfield" type="text" size="50" maxlength="255" value=<%= Msg3 %>>
	&nbsp;<input type="submit" name="Send" value="确定"><input name="FunID" type="hidden" value="<%= Msg4 %>"></div></td></tr>
	</form></table></TD></TR></TABLE>
	<br>
<%End Sub%>