admin_setcon_inc.asp

来自「学生证书查询管理系统2007 build1109D」· ASP 代码 · 共 35 行

<%
Sub editinfos()
	Sql_Lists="SiteName,Domains,Website,Logopic,Superadmin,CookiesKey"
	sql=Sqlinfo(Sql_Lists,"websys","","","","")
	rs = connopen(sql)
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
	<FORM METHOD=POST ACTION="?action=mod" name="edit">
	<%
	For i=0 To UBound(nows)
	res "<TR><TD class=""zq"" width=""20%"">"&nows(i)&"</TD>",1
	res "<TD><input name="""&nowlm(i)&""" type=""text"" value="""&rs(i,0)&""" maxlength=""",0
	If i=3 Then res "100",0:Else:res "20",0:End If
	res """ class=""put""></TD></TR>",1
	Next
	%>
	<TR><TD>&nbsp;</TD><TD>&nbsp;<input type="submit" name="send" value="确认修改"></TD>
	</TR>
	</FORM>
	</TABLE>
<%
End Sub 

Sub jstable()
	For i=0 To UBound(nows)
	temp_restr(i)= che(request(nowlm(i)))
	Next
End Sub 

Sub sqltable()
	For i=0 To UBound(nows)
	rs(nowlm(i))= temp_restr(i)
	Next
End Sub
%>