?? admin.asp
字號:
<!--#include file="_conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'/////////////////////////////////////////////////////
'// 程序: 風雨許愿墻 1.3 作者: Oo隨風oO 2007.10.07 //
'// 主頁:www.szfywl.com 郵箱: szfywl@qq.com //
'/////////////////////////////////////////////////////
Call Chk_Post()
Select Case request("cmd")
Case "add"
Call Chk_Time(KEEP_TIME)
Call AddLove()
Case "del"
Call DelLove()
Case "edit"
Call EditPWD()
Case "login"
Call Chk_Time(KEEP_TIME)
Call ChkLogin()
Case Else
conn.close
Set conn=Nothing
response.redirect "default.asp"
End Select
Sub AddLove()
Dim key,getcode
key=Int(request("key"))
getcode=Int(session("getcode"))
If key<>getcode Then
response.write "<script type='text/javascript'>alert('驗證碼錯誤');history.go(-1);</script>"
response.End
End If
Dim send,pick,info
send=Trim(request("send"))
pick=Trim(request("pick"))
info=Trim(request("info"))
If BadWord(send,BAN_LIST) Or BadWord(pick,BAN_LIST) Or BadWord(info,BAN_LIST) Then
response.write "<script type='text/javascript'>alert('您用詞不當');history.go(-1);</script>"
response.End
End If
Dim sql,rs,ip,face,icon,id
send=ReplaceBadChar(send)
If send="" Then send="匿名"
pick=ReplaceBadChar(pick)
info=server.htmlencode(info)
ip=GetIP()
face=request("face")
icon=request("icon")
sql="Select * From LOVE"
Set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("Info")=info
rs("Send")=send
rs("Pick")=pick
rs("IP")=ip
rs("PostDate")=Now()
rs("Face")=face
rs("Icon")=icon
rs.update
id=rs("ID")
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
response.write "<script type='text/javascript'>alert('成功添加\n你的字條編號是["&id&"] ');location.href='default.asp?id="&id&"';</script>"
End Sub
Sub DelLove()
If session("_ASPK")<>"ok" Then response.redirect "default.asp"
Dim id
id=CLng(request("id"))
conn.execute "Delete From LOVE Where ID ="&id
conn.close
Set conn=Nothing
response.write "<script type='text/javascript'>alert('成功刪除');location.href='list.asp';</script>"
End Sub
Sub EditPWD()
If session("_ASPK")<>"ok" Then response.redirect "default.asp"
Dim username,password
username=MD5(ReplaceBadChar(request("username")))
password=MD5(ReplaceBadChar(request("password")))
conn.execute "Update ASPK Set [username]='"&username&"',[password]='"&password&"'"
conn.close
Set conn=Nothing
response.write "<script type='text/javascript'>alert('成功修改');location.href='list.asp';</script>"
End Sub
Sub ChkLogin()
Dim key,getcode
key=Int(request("key"))
getcode=Int(session("getcode"))
If key<>getcode Then
response.write "<script type='text/javascript'>alert('驗證碼錯誤!');history.go(-1);</script>"
response.End
End If
Dim username,password,sql,rs
username=MD5(ReplaceBadChar(request("username")))
password=MD5(ReplaceBadChar(request("password")))
sql="Select * From ASPK Where [username]='"&username&"' And [password]='"&password&"'"
Set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
If rs.eof And rs.bof Then
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
response.write ("用戶名或密碼錯誤")
response.End
End If
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
session("_ASPK")="ok"
session.timeout=10
response.write "<script type='text/javascript'>alert('成功登錄\n退出請關瀏覽器');location.href='list.asp';</script>"
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -