gbook.asp

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

      return false;
    } 
  }
  var wr_whe=write_frm.wrwhe.value;
  if(wr_whe!=="")
  {
    var errorwhe=isCharsInBag(wr_whe,errorcharname);
    if ( errorwhe=="no" )
    {
      alert("你的 来自 不得含有以下字符！\r\n  ><,[{}?/+=|\\'\":;~!#$%()`");
      document.write_frm.wrwhe.focus();
      return false;
    }
  }
  var wr_topic=write_frm.wrtopic.value;
  if(wr_topic=="")
  {
    alert("你还没完全留下所需信息！\r\n你的 主题 是必须要的。");
    document.write_frm.wrtopic.focus();
    return false;
  }
  var wr_word=write_frm.wrword.value;
  if(wr_word=="")
  {
    alert("你还没完全留下所需信息！\r\n你的 留言内容 是必须要的。");
    document.write_frm.wrword.focus();
    return false;
  }
}
function reset(write_frm)
{
  if (confirm("该项操作要清除全部的内容，你确定要清除吗?")) { return true; }
  return false;
}
function showimage() { document.images.wrimg.src = "images/face/"+document.write_frm.wrface.options[document.write_frm.wrface.selectedIndex].value+".gif"; }
-->
</script>
<form name=write_frm action='gbook.asp?action=write' method=post onsubmit="frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<%response.write val_code_num(index_url,1)%>
<tr class=bg_tds><td align=center height=30 colspan=3><font class=red><b>注意：</b></font>以下星号（<%response.write redx%>）标出的项目必需填写</td></tr>
<tr class=bg_td>
<td width='16%' height=25>你的名字：</td>
<td width='44%'><input type=text name=wrname value='<%response.write login_username%>' size=27 maxlength=20><%response.write redx%></td>
<td width='40%' align=center>&nbsp;<a title='查看所有头像' href='user_face.asp' target=_blank>→查看所有头像</a>
<select size=1 name=wrface style="width： 50; border： 1px solid #C0C0C0" onChange="showimage()">
<option value=0 selected>0</option>
<%
  for i=1 to dim_num(5)
    response.write vbcrlf&"<option value='"&i&"'>"&i&"</option>"
  next
%>
</select></td>
</tr>
<tr class=bg_td>
<td>性别：</td>
<td>&nbsp;Boy <input type=radio value='boy' name=wrsex checked class=bg_td>&nbsp;&nbsp; Girl <input type=radio name=wrsex value='girl' class=bg_td></td>
<td rowspan=5 align=center><img border=0 src='images/face/0.gif' name=wrimg></td>
</tr>
<tr class=bg_td>
<td>QQ：</td>
<td><input type=text name=wrqq size=28 maxlength=15></td>
</tr>
<tr class=bg_td>
<td>电子邮件：</td>
<td><input type=text name=wremail size=28 maxlength=50></td>
</tr>
<tr class=bg_td>
<td>你的主页： </td>
<td><input type=text name=wrurl size=28 value='http://' maxlength=50></td>
</tr>
<tr class=bg_td>
<td>来自：</td>
<td><input type=text name=wrwhe size=28 maxlength=20></td>
</tr>
<tr class=bg_td>
<td>留言主题：</td>
<td colspan=2><input type=text name=wrtopic size=65 maxlength=50><%response.write redx%></td>
</tr>
<tr class=bg_td>
<td>表情图标： </td>
<td colspan=2><%response.write jk_icon(0)%></td>
</tr>
<tr class=bg_td>
<td valign=top><br>你的留言：<br><br><%response.write web_frm_word%></td>
<td colspan=2><textarea rows=7 name=wrword cols=65 maxlength=1000 title='按 Ctrl+Enter 可直接发送' onkeydown="javascript:frm_quicksubmit();"></textarea></td>
</tr>
<tr class=bg_td>
<td>是否隐藏：</td>
<td colspan=2><input type=radio name=wrhidden value='no' checked class=bg_td>正常<input type=radio name=wrhidden value='yes' class=bg_td>隐藏<%response.write redx%>选择隐藏后，此留言只有管理员才可以看到。</td>
</tr>
<tr height=40 class=bg_tds><td colspan=3 align=center><input type=submit name=wsubmit value=' 可 以 发 送 啦 ' onclick="return check(write_frm)">　　<input type=reset value=' 重 新 再 来 ' onclick="return reset()"></td></tr>
</form>
<%
end sub

sub gbook_main()
  dim id,nname,sex,qq,email,url,whe,topic,ip,re_word,hidden,h_view
  h_view=false
  if cstr(login_username)=cstr(web_dim(3)) then h_view=true
  sql="select count(id) from gb_data"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  if int(rssum)<1 then
    call gbook_write()
    exit sub
  end if
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from gb_data order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,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
    id=rs("id")
    nname=rs("nname")
    sex="男孩"
    if rs("sex")="girl" then sex="女孩"
    qq=rs("qq")
    email=rs("email")
    url=joekoe_cms.code_html(rs("url"),1,0)
    whe=rs("whe")
    topic=rs("topic")
    ip=rs("ip")
    re_word=code_jk(rs("re_word"))
    hidden=rs("hidden")
%>
<tr><td class=td0>&nbsp;No.<%response.write rssum-(i+(viewpage-1)*nummer)+1%>&nbsp;主题：<font alt='<%response.write joekoe_cms.code_html(topic,1,0)%>'><%response.write joekoe_cms.code_html(topic,1,36)%></font></td></tr>
<tr><td class=bg_td>
  <table border=0 width='100%' cellspacing=0 cellpadding=0>
  <tr><td align=center>
    <table border=0 width='100%' cellspacing=2 cellpadding=0 height='100%'>
    <tr align=center valign=top>
    <td width=120>
      <table border=0 width='100%'>
      <tr><td align=center><%response.write nname%></td></tr>
      <tr><td align=center><img src='images/face/<%=rs("face")%>.gif' alt='<%=nname&" 是 "&sex%>' border=0></td></tr>
      <tr><td align=center><% if whe<>"nuller" then response.write "来自：<font alt='"&joekoe_cms.code_html(whe,1,0)&"'>"&joekoe_cms.code_html(whe,1,5)&"</font>"%></td></tr>
      </table>
    </td>
    <td width=1></td>
    <td width=* height='100%'>
      <table border=0 width='100%' height='100%' cellspacing=0 cellpadding=0>
      <tr><td colspan=2 align=center valign=top>
        <table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>
        <tr><td class=bw><font class=htd>
<%
    if hidden=true and h_view=false then
      response.write "<br><br><center><font class=red2>^-^ 此条留言只有管理员才可以看哦 ^-^</font></center><br><br>"
    else
      response.write "<img src='images/icon/"&rs("icon")&".gif' border=0 align=absmiddle>&nbsp;"
      if hidden=true then
        response.write "<font class=red2>[隐藏]</font>&nbsp;"
      end if
      response.write rs("word")
    end if
%>
        </font></td></tr>
        </table>
<%
    if len(re_word)>0 then
      response.write vbcrlf & "<table cellspacing=1 cellpadding=4 width='100%' align=center class=tf><tr class=bg_tds><td class=bw>" & _
		     vbcrlf & "<font class=red>管理员回复于：</font>" & rs("re_tim") & "<br>" & _
		     vbcrlf & "<img src='images/icon/" & rs("re_icon") & ".gif' border=0>&nbsp;" & re_word & _
		     vbcrlf & "</td></tr>" & _
		     vbcrlf & "</table>"
    end if
%>
      </td></tr>
      <tr><td height=5></td></tr>
      <tr><td height=1 colspan=2></td></tr>
      <tr height=20>
      <td width='60%'>&nbsp;<img src='<%response.write joekoe_cms.web_dir_skin%>small/tim.gif' align=absmiddle alt='签写时间' border=0>&nbsp;<%response.write joekoe_cms.time_type(rs("tim"),88)%></td>
      <td width='40%' align=right><%
    if qq<>"nuller" and login_mode<>"" then
      response.write "<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&qq&"' target=_blank><img src='"&joekoe_cms.web_dir_skin&"small/qq.gif' alt='"&nname&" 的QQ是："&qq&"' border=0></a>&nbsp;"
    end if
    if var_null(url)<>"" and url<>"nuller" and url<>"http://" and login_mode<>"" then
      response.write "<a href='"&joekoe_cms.code_html(url,1,0)&"' target=_blank><img src='"&joekoe_cms.web_dir_skin&"small/url.gif' alt='访问 "&nname&" 的主页' border=0></a>&nbsp;"
    end if
    if email<>"nuller" and login_mode<>"" then
      response.write "<a href='mailto:"&email&"'><img src='"&joekoe_cms.web_dir_skin&"small/email.gif' alt='给 "&nname&" 发电子邮件' border=0></a>&nbsp;"
    end if
    if login_username<>"" and login_password<>"" and login_mode<>"" then
      response.write "<img src='"&joekoe_cms.web_dir_skin&"small/ip.gif' align=absMiddle alt='IP保密' border=0>&nbsp;" & _
		     "<img src='"&joekoe_cms.web_dir_skin&"small/sys.gif' align=absMiddle alt='"&nname&" 的 "&user_sys_type(rs("sys"))&"' border=0>"
    end if
%>
      </td>
      </tr>
      </table>
    </td></tr>
    </table>
  </td></tr>
  </table>
</td></tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=bg_tds height=30><td>&nbsp;共有<font class=red><%response.write rssum%></font>条留言&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></tr>
<%
end sub
%>