usersave.asp

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

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

call gadmin
%><%
set rs=Server.CreateObject("ADODB.Recordset")
strsql="Select *From koyee_admin"
rs.open strsql,conn,1,3 
%>
<%
if request("pwd")="" or request("repwd")="" or request("user")="" or request("step")="" then
response.redirect"adduser.asp"
end if
if request("pwd")<>request("repwd") then
response.write"你的二次密码不一样"
response.end
end if
user=request("user")
strsql1="select *from koyee_admin where koyee_admin='"&user&"'"
set rs1=conn.execute(strsql1)
If not rs1.Bof and Not rs1.Eof Then
response.write"此用户已存在,请换帐号名!"
response.end
end if

pwd=request("pwd")
step=request("step")
rs.addnew
rs("koyee_admin")=trim(user)
rs("koyee_pwd")=md5(trim(pwd))
rs("step")=step
rs.update
rs.close
set rs=nothing
''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="添加管理员["& trim(user) &"]"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
call OKMsg("添加成功","javascript:window.close();")



%>