📄 emaildb.asp
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<head>
<LINK href="../style.css" rel=stylesheet>
<title>添加信件信息</title>
</head>
<body bgcolor="#FFFFFF">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#00CC33">
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
<%'------------接受数据-------------
sxr=trim(Request("sxr")) '收信人
fxr=trim(request("fxr")) '发信人
zt=trim(request("zt")) '主题
nr=trim(request("nr")) '内容
sqlstr="select * from 用户表 where 用户名='"&sxr&"'"
my_rs.open sqlstr,my_Conn,1,3
if my_rs.eof then
Response.Write sxr&"用户不在公司成员内，请与管理员联系！" & "<input type='button' value='返回' name='B2' class='buttonface' onclick='javascript:history.back()'>"
else
if zt="" then
zt="未知"
end if
if nr="" then
nr="未知"
end if
if sxr="" then
Response.Write "未填收信人 请确认！" & "<input type='button' value='返回' name='B2' class='buttonface' onclick='javascript:history.back()'>"
else
my_rs.close
sqlstr="select * from 私人信件"
my_rs.open sqlstr,my_Conn,1,3
my_rs.addnew
my_rs("信件主题")=zt
my_rs("收信人")=sxr
my_rs("发信人")=fxr
my_rs("信件内容")=nr
my_rs("新旧")="Yes"
my_rs.update
Response.Write "发信成功！"
end if
end if
response.write " "
response.write "<input type='button' value='关闭窗口' name='B2' class='buttonface' onclick='javascript:self.close()'>"
%>
</div>
</tr>
</table>
<%my_rs.close
set my_rs=nothing
set my_rs=server.createobject("adodb.recordset")
sqlstr="select * from 系统日志信息"
my_rs.open sqlstr,my_Conn,1,3
my_rs.addnew
my_rs("使用者名称")=session("username")
my_rs("所做事件")="发私人信件，"&fxr&"发给"&sxr&"."
my_rs.update
my_rs.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -