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