user_sms.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!--#include file="inc/St_conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<!--#include file="inc/St_function.asp"-->
<% 
if userlogin<>sys then
response.write"<SCRIPT>alert('你还没有登陆，请登陆后操作！');this.location.href='index.asp';</SCRIPT>"
response.end
end if
Select case request("action")
case "inbox"
shotantop="收件箱"
case "sendsms"
shotantop="发送短信"
case "sendbox"
shotantop="发件箱"
case "showsms"
shotantop="查看短信"
case else
shotantop="收件箱"
End Select
title="短信中心"
loadhead
response.write"<table border=""0"" cellspacing=""0"" cellpadding=""0"" align=center class=dabg><tr><td class=left></td><td class=width><table width=100% border=0  cellspacing=""0"" cellpadding=""0""><tr><td valign=top>"& vbCrLf
st_replace "st_login",""&st_login&""
st_replace "st_search",""&st_search&""
st_replace "st_usertaxis",""&st_usertaxis&""
br
br
response.write"</td><td width=""5""></td><td valign=top align=right>"& vbCrLf
titletop ""&shotantop&"",500,2,0,"","","",0
select case request("action")
case "inbox"            
call inbox()   
case "sendbox"    
call sendbox()
case "sendsms"  %>
<SCRIPT language="javascript">
<!--
function del_space(s){
for(i=0;i<s.length;++i)
{if(s.charAt(i)!=" ")
break;}
for(j=s.length-1;j>=0;--j)
{if(s.charAt(j)!=" ")
break;}
return s.substring(i,++j);}
function VerifySubmit()
{to_user = del_space(document.all("to_user").value);
if (to_user.length == 0)
{alert("收信人姓名不能为空！");return false;}
from_user = del_space(document.all("from_user").value);
if (from_user==to_user)
{alert("自己不能给自己发信件！");return false;}
title = del_space(document.all("title").value);
if (title.length == 0)
{alert("信件标题不能为空！");return false;}
content = del_space(document.all("content").value);
if (content.length == 0)
{alert("信件内容不能为空！");return false;}
content = del_space(document.all("content").value);
if (content.length > 500)
{alert("信件内容不能多余500字！");return false;}return true;}
//-->
</SCRIPT>
<%response.write"<table bgcolor=""#ffffff"" borderColor=""#e6e6e6"" Border=""1"" Cellspacing=""0"" Cellpadding=""5"" width=""535"" align=""Center"" style=""border-collapse: collapse"" id=""table1""><tr><td align=center colspan=2><b>发送短消息</b></td></tr>"& vbCrLf
response.write"<tr><td valign=middle align=center colspan=2><a href=""user_sms.asp?action=inbox""><img src=""images/sms01.gif"" border=0 alt=""收件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendbox""><img src=""images/sms02.gif"" border=0 alt=""发件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendsms""><img src=""images/sms03.gif"" border=0 alt=""写消息"" width=""40"" height=""40""></a><a onfocus=""this.blur()"" href=""javascript:this.location.reload()""><img height=""12"" src=""images/refresh.gif"" border=""0"" alt=""如果看不到信就刷新一下!"" width=""38""></a></td></tr>"& vbCrLf
response.write"<tr><td colspan=2 align=center><b>请完整输入下列信息</b></td></tr>"& vbCrLf
response.write"<tr><td valign=middle><form name=""regform"" onSubmit=""return VerifySubmit()"" method=""post"" action=""?action=sendsmsok""><b>&nbsp;收件人：</b></td><td valign=middle><input name=""to_user"" type=""text"" id=""to_user"" class=""input"" "& vbCrLf
if request.querystring("user")<>"" then
response.write"value="&request.querystring("user")&" "& vbCrLf
end if
response.write"size=""20"">"& vbCrLf
response.write friend_select()
response.write"</td></tr><tr><td valign=top width=""20%""><b>&nbsp;标题：<=20</b></td><td valign=middle><input name=""title"" type=""text"" id=""title2"" class=""input"" size=""35""></td></tr>"& vbCrLf
response.write"<tr><td valign=top width=""20%""><b>&nbsp;内容：<=200</b></td><td valign=middle><textarea name=""content"" style=""width:400;height:100;"" class=""input"" id=""textarea"" onkeydown=""bookcount(this.form.content,this.form.total,this.form.used,this.form.remain);"" onkeyup=""bookcount(this.form.content,this.form.total,this.form.used,this.form.remain);"" rows=""1"" cols=""20""></textarea></td></tr>"& vbCrLf
response.write"<tr><td colspan=2 align=center></td></tr><tr><td valign=top width=""20%""><b>&nbsp;验&nbsp;证&nbsp;码：</b></td><td valign=middle><input name=""code"" type=""text"" size=""7"" maxlength=""4"" class=""input"">&nbsp;<img src=""inc/code.asp"" style=""width:40;height=15"" border=0 align=absmiddle></td></tr>"& vbCrLf
response.write"<td height=30 colspan=2><center><input type=""submit"" name=""Submit"" value=""发 送"" class=put onmouseover=this.className='overput' onmouseout=this.className='put'>&nbsp;&nbsp;<input type=""reset"" name=""reset"" value=""清 空"" class=""put"" onmouseover=this.className='overput' onmouseout=this.className='put'></form></td></tr></table>"& vbCrLf
case "sendsmsok" 
if int(request("code"))<>int(Session("code")) then
Response.Write("<script language=javascript>alert('请输入正确的认证码！');history.go(-1);</script>") 
Response.End 
end if  
Session("code")=""
if request("to_user")<>"" and request("content")<>"" then 
to_user=trim(request("to_user"))
sql="select * from St_user where st_username='"&to_user&"'"
set rs=conn.execute (sql)
if rs.eof and rs.bof then
Response.Write("<script>alert('本站没有该用户！');history.go(-1);</script>")
Response.End
else
set rs=server.createobject("adodb.recordset")
sql="select * from St_sms"
rs.open sql,conn,1,3
rs.addnew
rs("from_user")=""&username&""
rs("to_user")=trim(request("to_user"))
rs("title")=trim(request("title"))
rs("content")=request("content")
rs.update
conn.execute("update St_user set st_usermoney=st_usermoney-2 where st_username="""&username&"""")
Response.Write"<script>alert(""短信发送成功！并收了您的2个元宝！"");window.location='user_sms.asp?action=sendbox';</script>"
end if
end if
case "showsms"
set rs=server.createobject("adodb.recordset")
sql="select * from St_sms where id="&request.querystring("id")
rs.open sql,conn,1,3
rs("ok")=1
rs.update
response.write"<TABLE width=""100%"" border=1 cellPadding=0 cellSpacing=0 borderColor=#e6e6e6 frame=void rules=rows>"& vbCrLf
response.write"<tr><td height=10 colspan=2><tr><td align=center colspan=2><a href=""user_sms.asp?action=inbox""><img src=""images/sms01.gif"" border=0 alt=""收件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendbox""><img src=""images/sms02.gif"" border=0 alt=""发件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendsms""><img src=""images/sms03.gif"" border=0 alt=""写消息"" width=""40"" height=""40""></a><a onfocus=""this.blur()"" href=""javascript:this.location.reload()""><img height=""12"" src=""images/refresh.gif"" border=""0"" alt=""如果看不到信就刷新一下!"" width=""38""></a></td></tr></td></tr>"& vbCrLf
response.write"<tr><td height=5 colspan=2></td></tr><tr><td height=25 align=center class=bg>短信主题：<font color='red'>"&rs("title")&"</font></td></tr>"& vbCrLf
response.write"<tr><td height=120 colspan=2 valign=top style=""padding:2px"">"&rs("content")&"</td></tr><tr><td height=25 align=center class=bg><p align=""right"">发信人：<a href=""user_sms.asp?action=sendsms&user="&rs("from_user")&""" title=""回复短信给["&rs("from_user")&"]""><font color='red'>"&rs("from_user")&"</font></a></td></tr></table>"& vbCrLf
rs.close
set rs=nothing
case "delsms"   
Conn.Execute("Delete * From St_sms Where id="&Request.QueryString("id"))
conn.execute("update St_user set Experience=Experience+5 where UserName="""&username&"""")
Response.Write("<script>alert('短信删除成功！并奖励您5个元宝！');this.location.href='user_sms.asp';</script>")	
case else
call inbox()
end select
titlebom 2
response.write"</td><td class=right></td></tr></table>"& vbCrLf
foot
sub inbox()
response.write"<TABLE width=""100%"" border=1 cellPadding=0 cellSpacing=0 borderColor=#e6e6e6 frame=void rules=rows><TR class=bg height=24>"& vbCrLf
response.write"<TD width=""98%"" align=center colspan=""5""><a href=""user_sms.asp?action=inbox"">"& vbCrLf
response.write"<img src=""images/sms01.gif"" border=0 alt=""收件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendbox""><img src=""images/sms02.gif"" border=0 alt=""发件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendsms""><img src=""images/sms03.gif"" border=0 alt=""发送消息"" width=""40"" height=""40""></a><a onfocus=""this.blur()"" href=""javascript:this.location.reload()""><img height=""12"" src=""images/refresh.gif"" border=""0"" alt=""如果看不到信就刷新一下!"" width=""38""></a></TD></TR>"& vbCrLf
response.write"<TR class=bg height=24><TD width=""8%"" align=center>状态</TD><TD width=""15%"" align=center>发送会员</TD><TD width=""40%"">短信标题</TD><TD width=""20%"" align=center>发送日期</TD><TD width=""15%"" align=center>短信操作</TD></TR>"& vbCrLf
set rs=server.createobject("adodb.recordset")
sql="select * from [St_sms] where to_user='"&username&"' order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
response.write"<TR height=24><TD align=center>"& vbCrLf
if rs("ok")=1 then
response.write"已读"& vbCrLf
else
response.write"<font color=red>未读</font>"& vbCrLf
end if
response.write"</TD><TD align=center>"&rs("from_user")&"</TD><TD><a href=""user_sms.asp?action=showsms&id="&rs("id")&""">"&rs("title")&"</a></TD><TD align=center title="""&rs("date")&""">"&left(rs("date"),9)&"</TD><TD align=center><a href=""?action=delsms&id="&rs("id")&""">删除</a></TD></TR>"& vbCrLf
rs.movenext
loop
elseif rs.eof and rs.bof then
response.write"<tr><td colspan=5 height=100 align=center><font color=red><b>您的收件箱为空，暂时没有短信！</</b></font></td></tr>"
end if
response.write"</table>"& vbCrLf
rs.close
set rs=nothing
end sub
sub sendbox()
response.write"<TABLE width=""100%"" border=1 cellPadding=0 cellSpacing=0 borderColor=#e6e6e6 frame=void rules=rows><TR class=bg height=24>"& vbCrLf
response.write"<TD width=""98%"" align=center colspan=""5""><a href=""user_sms.asp?action=inbox"">"& vbCrLf
response.write"<img src=""images/sms01.gif"" border=0 alt=""收件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendbox""><img src=""images/sms02.gif"" border=0 alt=""发件箱"" width=""40"" height=""40""></a> &nbsp; <a href=""user_sms.asp?action=sendsms""><img src=""images/sms03.gif"" border=0 alt=""发送消息"" width=""40"" height=""40""></a><a onfocus=""this.blur()"" href=""javascript:this.location.reload()""><img height=""12"" src=""images/refresh.gif"" border=""0"" alt=""如果看不到信就刷新一下!"" width=""38""></a></TD></TR>"& vbCrLf
response.write"<TR class=bg height=24><TD width=""8%"" align=center>状态</TD><TD width=""15%"" align=center>接收会员</TD><TD width=""40%"">短信标题</TD><TD width=""20%"" align=center>发送日期</TD><TD width=""15%"" align=center>短信操作</TD></TR>"& vbCrLf
set rs=server.createobject("adodb.recordset")
sql="select * from St_sms where from_user='"&username&"' order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
response.write"<TR height=24><TD align=center>"& vbCrLf
if rs("ok")=1 then
response.write"已读"& vbCrLf
else
response.write"未读"& vbCrLf
end if
response.write"</TD><TD align=center>"&rs("to_user")&"</TD><TD><a href=""user_sms.asp?action=showsms&id="&rs("id")&""">"&rs("title")&"</a></TD><TD align=center title="""&rs("date")&""">"&left(rs("date"),8)&"</TD><TD align=center><a href=""?action=delsms&id="&rs("id")&""">删除</a></TD></TR>"& vbCrLf
rs.movenext
loop
elseif rs.eof and rs.bof then
response.write"<tr><td colspan=5 height=100 align=center><font color=red><b>你没有发送过短信！</</b></font></td></tr>"& vbCrLf
end if
response.write"</table>"& vbCrLf
rs.close
set rs=nothing
end sub%>