user_mail.asp

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

      found_err=found_err&"+您提交的 <font class=red>验证码</font> 有错误，请勿非法提交！<br>"
    end if
    if true_accept(accept_u)=false then
      found_err=found_err&"+您输入的 <font class=red>收 件 人</font> 为空或不存在！<br>"
    end if
    if topic="" or len(topic)>20 then
      found_err=found_err&"+您输入的 <font class=red>短信主题</font> 为空或长度超过20！<br>"
    end if
    if word="" or len(word)>250 then
      found_err=found_err&"+您输入的 <font class=red>短信内容</font> 为空或长度超过250！<br>"
    end if
    if found_err<>"" then
      response.write vbcrlf&"<tr><td class=bg_td colspan=2 align=center height=200>" & _
		     found_error(found_err,250) & _
		     vbcrlf&"</td></tr>"
      exit sub
    end if
    types=1
    isread=0
    sendname="发送"
    sql="select top 1 l_username from user_login where l_username='"&accept_u&"'"
    set rs=joekoe_cms.exec(sql,1)
    if not rs.eof then
      user_on=rs(0)
    end if
    rs.close
    sql="select id,username from user_data where username='"&accept_u&"'"
    set rs=joekoe_cms.exec(sql,1)
    if trim(request.form("send"))<>"later" and user_on=rs(1) then application(joekoe_cms.web_cookies&"_"&rs(0))=rs(0)
    rs.close
    if trim(request.form("send"))="later" then
      types=2
      isread=1
      sendname="保存"
    end if
    sql="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
	"values ('"&login_username&"','"&accept_u&"','"&topic&"','"&word&"','"&joekoe_cms.now_time&"',"&types&","&isread&")"
    call joekoe_cms.exec(sql,0)
    call web_js_msg(1,"已成功"&sendname&"一条站内短信！","?")
    call val_chk_end("user_mail")
    exit sub
  end if
%>
<form name=write_frm action='?action=<%response.write action%>&id=<%response.write id%>' method=post onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<input type=hidden name=send value=''>
<%response.write val_code_num("user_mail",1)%>
<tr class=bg_td>
<td width='20%'>收 件 人：</td>
<td width='80%'>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=accept_u value='<%response.write accept_u%>' size=30 maxlength=20><%response.write redx%><=20</td>
  <td>　<%response.write friend_select()%></td>
  </tr>
  </table>
</td>
</tr>
<tr class=bg_tds>
<td>短信主题：</td>
<td><input type=text name=topic value='<%response.write joekoe_cms.code_html(topic,1,0)%>' size=60 maxlength=20></td>
</tr>
<tr class=bg_td>
<td><%call frm_ubb_type(" class=bg_td")%></td>
<td><%call frm_ubb("write_frm","word","",0)%></td>
</tr>
<tr class=bg_td>
<td class=htd>短信内容：<br>EM贴图支持<br>UBB不支持<br>HTML不支持<br>长度<=250字节</td>
<td><textarea name=word rows=7 cols=60><%response.write joekoe_cms.code_word(word)%></textarea></td>
</tr>
<tr class=bg_tds>
<td colspan=2 align=center><%response.write jk_em("write_frm","word")%></td>
</tr>
<tr class=bg_td><td height=30 colspan=2 align=center><input type=submit value='发送短信'>　　<input type=submit value='保存短信' onclick="javascript:return do_later();">　　<input type=reset value='重新填写'>　　<input type=button value='返回上一页' onclick="javascript:history.back(1);"></td></tr>
</form>
<script language=javascript>
function do_accept(addaccept)
{
  if (addaccept!="")
  { document.write_frm.accept_u.value=addaccept; }
}

function do_later()
{
  document.write_frm.send.value="later";
  return true;
}
</script>
<%
end sub

function friend_select()
  dim rsf,ttt,temp1
  temp1=vbcrlf&"<select name=friend_select size=1 onchange=""javascript:do_accept(this.options[this.selectedIndex].value);"">" & _
	vbcrlf&"<option value='' class=bg_td>选择我的好友</option>"
  set rsf=joekoe_cms.exec("select username2 from user_friend where username1='"&login_username&"' order by id",1)
  do while not rsf.eof
    ttt=rsf(0)
    temp1=temp1&vbcrlf&"<option value='"&ttt&"'>"&ttt&"</option>"
    rsf.movenext
  loop
  rsf.close
  set rsf=nothing
  temp1=temp1&vbcrlf&"</select>"
  friend_select=temp1
end function

sub user_mail_box()
  dim temp1,pageurl,ttim,isread,td_temp,read_pic,iid,link_temp,name_temp,num_perent
  pageurl="?action="&action&"&"
  temp1=""
  sql="select count(id) from user_mail "&sql_add
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  if action="box_in" then
    num_perent=formatpercent(rssum/max_num,1)
%>
<table border=0>
<tr height=30>
<td>您的<%response.write action_temp%>总共可以储存<font class=red><%response.write max_num%></font>条短信，</td>
<td>目前已有<font class=red><%response.write rssum%></font>条短信，</td>
<td>占<font class=red><%response.write num_perent%></font>：</td>
<td>
  <table cellpadding="0" border="0" cellspacing="0" style="background-color:white; border: #104a7b 1px solid; padding-right: 0px; padding-left: 0px; padding-bottom: 2px; padding-top: 2px;">
  <tr>
  <td width="120">
  <div style="height:5px; width:<%response.write num_perent%>; font-size:1px; background-color:#76D769"></div>
  </td>
  </tr>
  </table>
</td>
</tr>
</table>
<%
  end if
%>
<table cellspacing=1 cellpadding=4 class=table>
<form name=del_form action='?actions=delete&action=<%response.write action%>' method=post>
<tr align=center>
<td width='6%' class=td0>状态</td>
<td width='16%' class=td0><%
if action="box_draft" or action="box_out" then
  response.write "收"
else
  response.write "发"
end if
%>信人</td>
<td width='48%' class=td0>短信主题（<%response.write action_temp%>）</td>
<td width='14%' class=td0>发送日期</td>
<td width='10%' class=td0>大小</td>
<td width='6%' class=td0>操作</td>
</tr>
<%
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from user_mail "&sql_add&" order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,0,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
    td_temp=""
    read_pic="state_old"
    link_temp="msg_view"
    iid=rs("id")
    isread=rs("isread")
    ttim=rs("tim")
    if isread=false then
      td_temp=" class=btd"
      read_pic="state_new"
    end if
    if action="box_draft" then
      td_temp=" class=btd"
      read_pic="state_send"
      link_temp="msg_edit"
    end if
    if action="box_draft" or action="box_out" then
      name_temp=rs("accept_u")
    else
      name_temp=rs("send_u")
    end if
    ttim=joekoe_cms.time_type(ttim,3)
%>
<tr align=center<%response.write td_temp%>>
<td class=bg_tds><img src='<%response.write joekoe_cms.web_dir_skin%>mail/<%response.write read_pic%>.gif' border=0></td>
<td class=bg_td><%response.write format_user_name(name_temp,1,"")%></td>
<td class=bg_tds align=left><a href='?action=<%response.write link_temp%>&id=<%response.write iid%>'><%response.write joekoe_cms.code_html(rs("topic"),1,22)%></a></td>
<td class=bg_td><font class=tims><%response.write ttim%></font></td>
<td class=bg_td align=right><font class=tims><font class=blue><%response.write len(rs("word"))%></font>Byte</font></td>
<td class=bg_tds><input type=checkbox name=sel_id value='<%response.write iid%>' class=bg_tds></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=bg_td height=30><td colspan=6 align=center>
  <table border=0 cellspacing=0 cellpadding=2>
  <tr>
  <td><%response.write action_temp%>共有<font class=red><%response.write rssum%></font>条短信</td>
  <td><font class=gray>（为了节省空间，请及时删除无用信息）</font></td>
  <td><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);" class=bg_td>所有</td>
  <td><input type=submit value='删除所选' onclick="return sel_click(this.form);"></td>
  <td><input type=button onclick="javascript:box_clear();" value="清空<%response.write action_temp%>"></td>
  </tr>
  </table>
</td></tr>
</form>
<script language=javascript>
<!--
function box_clear()
{
  if (confirm('确定清空<%response.write action_temp%>所有的短信吗?\n\n清空后将无法恢复！'))
  {
    location.href='?actions=clear&action=<%response.write action%>';
  }
}
-->
</script>
<tr class=bg_tds height=30>
<td colspan=3>&nbsp;页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>&nbsp;分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %></td>
<td colspan=3 align=center>
  <table border=0 cellspacing=0 cellpadding=2>
  <tr>
  <td><img src='<%response.write joekoe_cms.web_dir_skin%>mail/state_old.gif' border=0 align=absmiddle>&nbsp;已读</td>
  <td><img src='<%response.write joekoe_cms.web_dir_skin%>mail/state_new.gif' border=0 align=absmiddle>&nbsp;未读</td>
  <td><img src='<%response.write joekoe_cms.web_dir_skin%>mail/state_send.gif' border=0 align=absmiddle>&nbsp;草稿</td>
  </tr>
  </table>
</td>
</tr>
</table>
<%
end sub
%>