admin_web.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<!--#include file="conn.asp"-->
<!--#include file="../fn/function.asp"-->
<!--#include file="seeadmin.asp"-->
<%

call gadmin
%>
<%
webaddr=request.form("webaddr")
webname=request.form("webname")
webemail=request.form("webemail")
webcom=request.form("webcom")
webyou=request.form("webyou")
webtel=request.form("webtel")
webcopy=request.form("webcopy")
webtime=request.form("webtime")

set rs=Server.createObject("adodb.recordset")
strsql="select *from web_basic where id=1"
rs.open strsql,conn,1,3
rs("webaddr")=webaddr
rs("webname")=webname
rs("webemail")=webemail
rs("webcom")=webcom
rs("webyou")=webyou
rs("webtel")=webtel
rs("webcopy")=webcopy
rs("webtime")=webtime
rs.update
rs.close
''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="设置网站基本资料"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
call OKmsg("设置成功","admin_basic.asp")
%>