www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_system.asp
<!--#include file="../conn.asp"--> <!--#include file="inc/inc.asp"--> <!--#include file="../inc/inc.asp"--> <% Dim arrpro(25) arrpro(0)="25175学生同学录" arrpro(1)="25175学生排课系统" arrpro(2)="25175学校新闻系统" arrpro(3)="25175学生证书查询" arrpro(4)="25175学生报名系统" arrpro(5)="25175学生会员注册" arrpro(6)="25175学校教务管理" arrpro(7)="25175学生选课" arrpro(8)="25175学校缴费" arrpro(9)="25175教学设备" arrpro(10)="25175在线考试系统" arrpro(11)="25175成绩系统(大学院校)" arrpro(12)="25175成绩系统(中小学版)" arrpro(13)="25175教师在线应用" arrpro(14)="25175寝室水电管理" arrpro(15)="25175学校聚合管理系统" arrpro(16)="25175教师质量评价系统" arrpro(17)="25175学生成长系统" arrpro(18)="25175图书查询管理" arrpro(19)="25175教师档案管理" arrpro(20)="25175学生档案管理" arrpro(21)="25175娱乐影音" arrpro(22)=" " arrpro(23)=" " arrpro(24)=" " arrpro(25)=" " res w3chead(HTMLother),1 Login_Judge nowtit="系统初始信息设置" powerid=100 Ispower powerid & "2" Dim Domains,Website,Logopic,Superadmin,CookiesKey action=che(request("action")) Dim nows(4) Dim nowlm(4) Dim temp_restr(4) nows(0)="联系地址" nows(1)="客户编号" nows(2)="产品名称" nows(3)="版本号" nows(4)="md5" nowlm(0)="websystem" nowlm(1)="websystem_id" nowlm(2)="websystem_proid" nowlm(3)="websystem_bbid" nowlm(4)="websystem_md5" If action="mod" Then jstable set rs=server.createobject("adodb.recordset") sql=Sqlinfo("*","websys","","","","") rs.Open Sql, Conn, 1, 3 If Not rs.Eof Then sqltable rs.Update End If rs.close siteinfo = getcache("web_config",1,1,0) rightmsg "?","" Else restit nowtit,"" editinfos End If Erase nowlm Erase nows Erase temp_restr res footer(1),0 Sub editinfos() Sql_Lists="websystem,websystem_id,websystem_proid,websystem_bbid,websystem_md5" 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><TD>" If i=2 Then res "<SELECT NAME="""&nowlm(i)&""">"&sem_sysna(rs(i,0))&"</SELECT>" else res "<input name="""&nowlm(i)&""" type=""text"" value="""&rs(i,0)&""" maxlength=""" res "100" res """ class=""put"">" End If res "</TD></TR>" 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 Function sem_sysna(nos) sem_sysna="" If Not IsNumeric(nos) Then Exit Function sem_sysna = op(0,"请选择...",nos) For nos_i=1 To UBound(arrpro) sem_sysna=sem_sysna & op(nos_i,arrpro(nos_i),nos) Next End Function %>