gbook.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_other.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim nummer,rssum,sumrs,page,viewpage,thepages,pageurl,id,nname,sex,qq,email,url,whe,topic,ip,re_word,hidden
pageurl="?":nummer=web_var(web_num,4)

index_url="gbook"
if action="write" then
  tit="签写留言"
  tit_fir="网站留言"
else
  tit="网站留言"
  tit_fir=""
end if

call web_head(0,0,0,0,0)
'------------------------------------left----------------------------------
call format_login()
call gbook_left()
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong

if action="write" then
  call gbook_write()
else
  call gbook_main()
end if

response.write kong
'---------------------------------center end-------------------------------
call web_end(0)

sub gbook_left()
  dim temp1
  temp1=vbcrlf&"<table border=0 width='96%' cellspacing=0 cellpadding=2 align=center>" & _
	vbcrlf&"<tr><td height=5></td></tr>" & _
	vbcrlf&"<tr><td height=30 align=center><a href='gbook.asp?action=write'><img src=images/guest_new.gif border=0></a></td></tr>" & _
	vbcrlf&"<tr><td class=red_3 align=center><b>关于"&tit&"</b></td></tr>" & _
	vbcrlf&"<tr><td align=center>任何人都可以在这里留言<br>只有注册并登陆后才可以看到其它留言者的系统信息</td></tr>" & _
	vbcrlf&"<tr><td align=center>系统支持："&replace(web_var(web_error,3),"<br>","，")&"</td></tr>" & _
	vbcrlf&"</table>"
  response.write "<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center><tr><td align=center>"&kong&format_bar("<img src='images/"&web_var(web_config,5)&"/left_gbook.gif' border=0>",temp1,13,2,"","|"&web_var(web_color,6)&"|","")&"</td></tr></table>"
  response.write left_action("jt13",4)
end sub

sub gbook_main()
  set rs=server.createobject("adodb.recordset")
  sql="select * from gb_data order by id desc"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
    rs.close:set rs=nothing
    call close_conn()
    response.redirect "gbook.asp?action=write"
    response.end
  end if
  rssum=rs.recordcount
  call format_pagecute()
  
  response.write table1
%>
<tr<%response.write table4%>><td height=25 align=center>
现有<font class=red><%response.write rssum%></font>条留言，每页<font class=red><%response.write nummer%></font>条，页次<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>&nbsp;
分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %>
</td></tr>
</table>
<%
  response.write kong
  
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  for i=1 to nummer
    if rs.eof then exit for
    response.write gbook_view()
    rs.Movenext
  next
  rs.close:set rs=nothing
end sub

function gbook_view()
  id=rs("id")
  nname=rs("nname")
  sex=rs("sex")
  if sex="girl" then
    sex="女孩"
  else
    sex="男孩"
  end if
  qq=rs("qq")
  email=rs("email")
  url=rs("url")
  whe=rs("whe")
  topic=rs("topic")
  ip=rs("ip")
  re_word=code_jk(rs("re_word"))
  hidden=rs("hidden")
  response.write table1
%>
<tr<%response.write table2%>><td valign=bottom>&nbsp;<b><font class=end>No.<%response.write rssum-(i+(viewpage-1)*nummer)+1%>&nbsp;主题：</font><font class=end title='<%response.write code_html(topic,1,0)%>'><%response.write code_html(topic,1,36)%></font></b></td></tr>
<tr<%response.write table3%>><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><%=nname%></td></tr>
              <tr><td align=center><img src='images/face/<%=rs("face")%>.gif' title='<%=nname&" 是 "&sex%>' border=0></td></tr>
              <tr><td align=center><% if whe<>"nuller" then response.write "来自：" & code_html(whe,1,0)%></td></tr>
            </table>
          </td>
          <td width=1 bgcolor=#3BB1CF></td>
          <td width=458 height='100%'>
            <table border=0 width='100%' height='100%'>
            <tr><td colspan=2 valign=top>
              <table border=0 width='100%' class=tf cellspacing=4 cellpadding=2><tr><td class=bw>
<%
if hidden=true and login_mode<>format_power2(1,1) then
  response.write "<br><br><center><font class=red_3>^-^ 此条留言只有站长才可以看哦 ^-^</font></center><br><br>"
else
  response.write "<img src='images/icon/"&rs("icon")&".gif' border=0>&nbsp;"
  if hidden=true then
    response.write "<font class=red_3>[隐藏]</font>&nbsp;"
  end if
  response.write code_jk(rs("word"))
end if
%></td></tr></table>
<%
if len(re_word)>0 then
  response.write vbcrlf & table1&"<tr"&table4&"><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></table>"
end if
%>
</td></tr>
<tr><td height=5></td></tr>
<tr><td height=1 colspan=2 bgcolor=<%response.write web_var(web_color,2)%>></td></tr>
<tr height=20>
<td width='60%'>&nbsp;<img src='images/small/tim.gif' align=absmiddle title='签写时间' border=0>　<%response.write rs("tim")%></td>
<td width='40%' align=right><%
if qq<>"nuller" then
  response.write "<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&qq&"' target=_blank><img src='images/small/qq.gif' title='"&nname&" 的QQ是："&qq&"' border=0></a>&nbsp;"
end if
if var_null(url)<>"" and url<>"nuller" and url<>"http://" then
  response.write "<a href='"&url&"' target=_blank><img src='images/small/url.gif' title='访问 "&nname&" 的主页' border=0></a>&nbsp;"
end if
if email<>"nuller" then
  response.write "<a href='mailto:"&email&"'><img src='images/small/email.gif' title='给 "&nname&" 发电子邮件' border=0></a>&nbsp;"
end if
if login_username<>"" and login_password<>"" and login_mode<>"" then
  response.write ip_types(ip,nname,1) & "&nbsp;" & _
		 "<img src='images/small/sys.gif' align=absMiddle title='" & view_sys(rs("sys")) & "' border=0>"
  if login_mode="admin" then
    response.write "&nbsp;<a href='gbook_action.asp?action=reply&id=" & rs("id") & "&page=" & viewpage & "'><img src='images/small/reply.gif' alt='回复这条留言' border=0></a>&nbsp;" & _
		   "<a href='gbook_action.asp?action=delete&id=" & rs("id") & "&page=" & viewpage & "'><img src='images/small/del.gif' alt='删除这条留言' border=0></a>"
  end if
end if
%></td>
</tr>
</table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
 </table>
</td></tr>
</table>
<%
  response.write kong
end function

sub gbook_write()
  response.write vbcrlf&"<table border=0 width='100%'><tr><td align=center height=300>"
  if request.form("gb_write")="ok" then
    response.write write_chk()
  else
    response.write write_type()
  end if
  response.write vbcrlf&"</td></tr></table>"
end sub

function write_type()
  write_type=vbcrlf & "<script language=javascript src='style/form_gbook.js'></script><script language=javascript src='style/form_ok.js'></script>" & _
	     vbcrlf & "<table border=0 cellpadding=0 cellspacing=0 width=500>" & _
	     vbcrlf & "<tr><form name=write_frm method=POST action='gbook.asp?action=write' onsubmit=""frm_submitonce(this);"">" & _
	     vbcrlf & "<input type=hidden name=gb_write value='ok'>" & _
	     vbcrlf & "<td align=center height=50 colspan=4><font class=red><b>注意：</b></font>以下星号（" & redx & "）标出的项目必需填写</td>" & _
	     vbcrlf & "</tr><tr><td align=center width=80 height=25>你的名字：</td>" & _
	     vbcrlf & "<td width=224><input type=text name=wrname value='" & login_username & "' size=27 maxlength=9>" & redx & "</td>" & _
	     vbcrlf & "<td width=100 align=center>&nbsp;<a title='查看所有头像' href='user_face.asp' target=_blank>→查看所有头像</a></td>" & _
	     vbcrlf & "<td width=71 align=center>" & _
	     vbcrlf & "<select size=1 name=wrface style=""width： 50; border： 1px solid #C0C0C0"" onChange=""showimage()"">" & _
	     vbcrlf & "<option value=0 selected>0</option>" & _
	     vbcrlf & "<option value=1>1</option>" & _
	     vbcrlf & "<option value=2>2</option>" & _
	     vbcrlf & "<option value=3>3</option>" & _
	     vbcrlf & "<option value=4>4</option>" & _
	     vbcrlf & "<option value=5>5</option>" & _
	     vbcrlf & "<option value=6>6</option>" & _
	     vbcrlf & "<option value=7>7</option>" & _
	     vbcrlf & "<option value=8>8</option>" & _
	     vbcrlf & "<option value=9>9</option>" & _
	     vbcrlf & "<option value=10>10</option>" & _
	     vbcrlf & "<option value=11>11</option>" & _
	     vbcrlf & "<option value=12>12</option>" & _
	     vbcrlf & "<option value=13>13</option>" & _