📄 sendmesg.asp
字号:
<%@ language="vbscript" %>
<% Response.Expires=0%>
<%
sender=request.form("sender")
geter=request.form("geter")
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
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 "本社区无此人！<a href='inbox.asp' target='main'>返回</a>"
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
end if
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&"',Now(), '"&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 + -