www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_setcon.asp

    <!--#include file="../conn.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="common/admin_setcon_inc.asp"-->
<%
res w3chead(HTMLother),1
Login_Judge
nowtit="系统基本信息设置"
powerid=100
Ispower powerid & "2"
Dim Domains,Website,Logopic,Superadmin,CookiesKey
action=che(request("action"))
Dim nows(5)
Dim nowlm(5)
Dim temp_restr(5)
nows(0)="网站名称"
nows(1)="网站域名"
nows(2)="网站介绍"
nows(3)="Logo图标"
nows(4)="初始帐号"
nows(5)="Cookies密钥"
nowlm(0)="SiteName"
nowlm(1)="Domains"
nowlm(2)="Website"
nowlm(3)="Logopic"
nowlm(4)="Superadmin"
nowlm(5)="CookiesKey"
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
	rightmsg "?",""
Else
	restit nowtit,""
	editinfos		
End If
Erase nowlm
Erase nows
Erase temp_restr
res footer(1),0
%>