📄 mysms.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../fuction.asp"-->
<html>
<head>
<title><%=bbsname%>-论坛中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14"><a href=index.asp><%=bbsname%></a> → <a href="mysms.asp?menu=write">发送新信息</a></span></span></td>
<td valign="bottom"></td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<!--#include file="top.asp"-->
<%
username=nosql(session("username"))
password=nosql(session("userpassword"))
if username="" or password="" then
response.redirect"login.asp"
end if
tname=nosql(request.querystring("username"))
set rs1=conn.execute("SELECT * FROM sms where tname='"&username&"' order by id desc")
%> <br><br>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#73D1E9" class="listcontents3">
<% menu=request.querystring("menu")
select case menu
case ""
%>
<tr bgcolor="C0E9F5">
<td width="188" height="23">
<p align="center" class="style1">发信人</p></td>
<td width="556">
<p align="center" class="style1">主题</td>
<td width="188">
<p align="center" class="style1">发送时间</td>
<td width="189">
<p align="center" class="style1">删除</td>
</tr>
<% do while not rs1.eof %>
<tr bgcolor="#FFFFFF">
<td width="188">
<p align="center"><a title='点击给<%=rs1("name")%>回复短信' href=mysms.asp?menu=write&username=<%=rs1("name")%>><%=rs1("name")%></a></p></td>
<td width="556">
<p align="center"><a title='点击查看<%=rs1("title")%>详细内容' href=mysms.asp?menu=action&id=<%=rs1("id")%>><%=HTMLEncode(rs1("title"))%></a>
[<%if rs1("isnew")=1 then%><span style="color: #FF0000">尚未阅读</span><%else%>已经阅读<%end if%>]</p></td>
<td width="188">
<p align="center"><%=rs1("riqi")%></p></td>
<td width="189">
<p align="center"><a href="mysms.asp?menu=del&id=<%=rs1("id")%>">删除</a> </p></td>
</tr>
<%
rs1.movenext
loop
'conn.execute("update sms set isnew='1' where tname='"&username&"'")
case "action"
id=nosql(int(Request.querystring("id")))
set rs2=conn.execute("SELECT * FROM sms where tname='"&username&"' and id="&id&"")
if rs2.Eof or rs2.Bof then
response.write"<SCRIPT language=JavaScript>alert('不存在，可能已被删除！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
%> <tr bgcolor="C0E9F5">
<td height="23" colspan="4"> <p class="style1"> 正在阅读：<%=HTMLEncode(rs2("title"))%></p> </td>
</tr> <tr bgcolor="#FFFFFF">
<td colspan="4">
<p> 发信人：<a title='点击给<%=rs2("name")%>回复短信' href=mysms.asp?menu=write&username=<%=rs2("name")%>><%=rs2("name")%> </a> 主题：<%=HTMLEncode(rs2("title"))%> 发送时间：<%=rs2("riqi")%> <a href="mysms.asp?menu=del&id=<%=rs2("id")%>" style="color: #FF0000">删除</a> <a href=mysms.asp?menu=write&username=<%=rs2("name")%>><span class="line1" style="color: #FF0000">回复</span></a></p> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="4"> 内容：<%=HTMLEncode(rs2("neirong"))%><br>
<a href="javascript:history.go(-1)">返回上一页</a></td>
</tr>
<%
conn.execute("update sms set isnew='0' where id="&rs2("id"))
end if
case "write"%>
<form method="POST" action="?menu=save">
<tr bgcolor="#FFFFFF">
<td width="188">
<p align="center">接受人</td>
<td width="556" colspan="3">
<input type="text" name="tname" size="55" value="<%=tname%>" class=wenbenkuang></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="center">信息主题</div></td>
<td width="556" colspan="3"><input name="title" type="text" class=wenbenkuang id="title" size="55"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="188">
<p align="center">内容：</td>
<td width="556" colspan="3">
<textarea rows="8" name="neirong" cols="77" class=wenbenkuang></textarea>
<p align="center">
<input type="submit" value="发送" name="B1" class="go-wenbenkuang">
<input type="reset" value="重置" name="B2" class="go-wenbenkuang">
</p></td>
</form>
<%case"save"
tname=nosql(Replace(Request.Form("tname"),"'","''"))
title=nosql(Replace(Request.Form("title"),"'","''"))
neirong=nosql(Replace(Request.Form("neirong"),"'","''"))
if tname="" or neirong="" then
response.write"<script language='javascript'>alert('请填写完整信息！')</script>"
response.write "<script language='javascript'>history.back(-1)</script>"
response.end
else
set isha=conn.execute("select username from shop_user where username='"&tname&"'")
if isha.eof then
response.write"<script language='javascript'>alert('该用户不存在！')</script>"
response.write "<script language='javascript'>history.back(-1)</script>"
response.end
else
rq=now()
isnew=1
conn.execute("insert into sms([name],title,neirong,riqi,tname,isnew)values('"&username&"','"&title&"','"&neirong&"','"&rq&"','"&tname&"','"&isnew&"')")
response.write"<script language='javascript'>alert('给"&tname&"的信息发送成功！')</script>"
response.write"<script language='javascript'>window.location='index.asp'</script>"
end if
end if
case"del"
id=int(request.querystring("id"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM sms where id="&id
rs.Open sql,conn,3,2
rs.Delete
rs.Close
set rs=nothing
response.redirect "mysms.asp"
end select%>
</table>
<p> </p></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="../copyright.asp"--> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -