📄 sendmesg.asp
字号:
<%@ language="vbscript" %>
<% Response.Expires=0%>
<%'D′è?D??t
if request("sender")="" then
response.write"??3?ê±á?￡?????D?μ????￡"
response.end
else
session("username")=request("sender")
end if
if request("geter")="" then
response.write"??μ????D?éè?ê??-°?￡??????ò￡?"
response.end
end if
if request("mailtitle")="" or request("content")="" or request("geter")="" then
response.write"ê??tè??￠?÷ìaoí?úèY±?D?ì?D′￡?"
response.end
end if
geter=request("geter")
sender=request("sender")
if sender=geter then
response.write "??2??ü??×??oD′D?￡?"
response.end
end if
DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("ADODB.RecordSet")
sql="select username from user_info where username='"&geter&"' "
rs.open sql,conn
if rs.eof and rs.bof then
response.write "ê??tè?′í?ó￡?"
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
end if
sendtime=now
mailtitle=Server.htmlencode(replace(request("mailtitle"),"'","''"))
content=Server.htmlencode(replace(request("content"),"'","''"))
sqltext="insert into mails(sender,mailtitle,content,sendtime,geter) values('"&sender&"','"&mailtitle&"','"&content&"','"&cdate(sendtime)&"', '"&geter&"')"
conn.execute sqltext
sql1="update user_info set lives=lives+1 where username='"&geter&"' or username='"&sender&"'"
conn.execute sql1
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body bgcolor="#FEE6AD">
<p align="center">发送成功！</p>
<p align="center"><a href="inbox.asp">返回收件箱</a></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -