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>&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


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
%>