www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/common/admin_setcon_inc.asp
<% 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> </TD><TD> <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 %>