Copyright 2004-2006 浙江龙生汽车部件股份有限公司 All
Rights Reserved
地址：浙江省桐庐县富春江镇机械工业区
E-MAIL：longsheng@longsheng988.com
技术支持：桐庐蜂鸟网络
总访问次数：
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加新留言到数据库
Sub Add_New_Execute()
'if request("verifycode")="" then
' Response.Write("")
' response.End()
'end if
if int(request("verifycode"))<>int(Session("SafeCode")) then
Response.Write("")
response.End()
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words"
Rs.Open Sql,Conn,2,3
Rs.AddNew
Rs("name")=Server.HTMLEncode(Request.Form("name"))
Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
Rs("head")=Server.HTMLEncode(Request.Form("head"))
Rs("web")=Server.HTMLEncode(Request.Form("web"))
Rs("email")=Server.HTMLEncode(Request.Form("email"))
Rs("words")=Server.HTMLEncode(Request.Form("words"))
Rs("date")=Now()
Rs.Update
Rs.Close
Set Rs = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'验证管理员登陆
Sub Admin_Login_Execute()
username = Server.HTMLEncode(Request.Form("username"))
password = Server.HTMLEncode(Request.Form("password"))
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,1,1
If username = Rs("username") AND password = Rs("password") Then
Session("Admin") = "Login"
Else
Response.Write "用户名或者密码不对，登陆失败"
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub EditPWD_Execute()
oldusername=Server.HTMLEncode(Request.Form("oldusername"))
username = Server.HTMLEncode(Request.Form("username"))
username_c = Server.HTMLEncode(Request.Form("username_c"))
oldpwd = Server.HTMLEncode(Request.Form("oldpwd"))
newpwd = Server.HTMLEncode(Request.Form("newpwd"))
newpwd_c = Server.HTMLEncode(Request.Form("newpwd_c"))
If username = "" OR username_c="" Then
Response.Write "新旧用户名均不能为空"
Response.End
End If
If oldpwd = "" OR newpwd = "" OR newpwd_c="" Then
Response.Write "新旧密码均不能为空"
Response.End
End If
If username<>username_c Then
Response.Write "新填写的两个新用户名不一致，请重新填写"
Response.End
End If
If newpwd<>newpwd_c Then
Response.Write "新填写的两个密码不一致，请重新填写"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
If Rs("password")=oldpwd And Rs("username")=oldusername Then
Rs("username")=username
Rs("password")=newpwd
Rs.Update
Else
Response.Write "你的旧密码填写不对或者旧用户名不对，修改不成功"
Response.End
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub Exit_Admin()
Session.Abandon
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'删除数据
Sub Delete()
'删除数据
Conn.Execute("Delete * From words Where id="&Request.QueryString("id"))
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'回复留言添加到数据库
Sub Reply_Execute()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select reply From words Where id="&Request.Form("id")
Rs.Open Sql,Conn,2,3
Rs("reply") = Server.HTMLEncode(Request.Form("reply"))
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Sub Edit_Execute()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&Request.Form("id")
Rs.Open Sql,Conn,2,3
Rs("words") = Server.HTMLEncode(Request.Form("words"))
Rs("reply") = Server.HTMLEncode(Request.Form("reply"))
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Conn.Close
Set Conn = Nothing
%>
设为首页
加入收藏夹
