gbook.asp

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

	     vbcrlf & "<option value=14>14</option>" & _
	     vbcrlf & "<option value=15>15</option>" & _
	     vbcrlf & "<option value=16>16</option>" & _
	     vbcrlf & "<option value=17>17</option>" & _
	     vbcrlf & "<option value=18>18</option>" & _
	     vbcrlf & "<option value=19>19</option>" & _
	     vbcrlf & "<option value=20>20</option>" & _
	     vbcrlf & "<option value=21>21</option>" & _
	     vbcrlf & "<option value=22>22</option>" & _
	     vbcrlf & "<option value=23>23</option>" & _
	     vbcrlf & "<option value=24>24</option>" & _
	     vbcrlf & "<option value=25>25</option>" & _
	     vbcrlf & "<option value=26>26</option>" & _
	     vbcrlf & "<option value=27>27</option>" & _
	     vbcrlf & "<option value=28>28</option>" & _
	     vbcrlf & "<option value=29>29</option>" & _
	     vbcrlf & "<option value=30>30</option>" & _
	     vbcrlf & "<option value=31>31</option>" & _
	     vbcrlf & "<option value=32>32</option>" & _
	     vbcrlf & "<option value=33>33</option>" & _
	     vbcrlf & "<option value=34>34</option>" & _
	     vbcrlf & "<option value=35>35</option>" & _
	     vbcrlf & "<option value=36>36</option>" & _
	     vbcrlf & "<option value=37>37</option>" & _
	     vbcrlf & "<option value=38>38</option>" & _
	     vbcrlf & "<option value=39>39</option>" & _
	     vbcrlf & "<option value=40>40</option>" & _
	     vbcrlf & "<option value=41>41</option>" & _
	     vbcrlf & "<option value=42>42</option>" & _
	     vbcrlf & "<option value=43>43</option>" & _
	     vbcrlf & "<option value=44>44</option>" & _
	     vbcrlf & "<option value=45>45</option>" & _
	     vbcrlf & "<option value=46>46</option>" & _
	     vbcrlf & "<option value=47>47</option>" & _
	     vbcrlf & "<option value=48>48</option>" & _
	     vbcrlf & "<option value=49>49</option>" & _
	     vbcrlf & "<option value=50>50</option>" & _
	     vbcrlf & "<option value=61>61</option>" & _
	     vbcrlf & "<option value=62>62</option>" & _
	     vbcrlf & "<option value=63>63</option>" & _
	     vbcrlf & "<option value=64>64</option>" & _
	     vbcrlf & "<option value=65>65</option>" & _
	     vbcrlf & "<option value=66>66</option>" & _
	     vbcrlf & "<option value=67>67</option>" & _
	     vbcrlf & "<option value=68>68</option>" & _
	     vbcrlf & "<option value=69>69</option>" & _
	     vbcrlf & "<option value=70>70</option>" & _
	     vbcrlf & "<option value=71>71</option>" & _
	     vbcrlf & "<option value=72>72</option>" & _
	     vbcrlf & "<option value=73>73</option>" & _
	     vbcrlf & "<option value=74>74</option>" & _
	     vbcrlf & "<option value=75>75</option>" & _
	     vbcrlf & "<option value=76>76</option>" & _
	     vbcrlf & "<option value=77>77</option>" & _
	     vbcrlf & "<option value=78>78</option>" & _
	     vbcrlf & "<option value=79>79</option>" & _
	     vbcrlf & "<option value=80>80</option>" & _
	     vbcrlf & "<option value=81>81</option>" & _
	     vbcrlf & "<option value=82>82</option>" & _
	     vbcrlf & "<option value=83>83</option>" & _
	     vbcrlf & "<option value=84>84</option>" & _
	     vbcrlf & "<option value=85>85</option>" & _
	     vbcrlf & "<option value=86>86</option>" & _
	     vbcrlf & "<option value=87>87</option>" & _
	     vbcrlf & "<option value=88>88</option>" & _
	     vbcrlf & "<option value=89>89</option>" & _
	     vbcrlf & "<option value=90>90</option>" & _
	     vbcrlf & "<option value=91>91</option>" & _
	     vbcrlf & "<option value=92>92</option>" & _
	     vbcrlf & "<option value=93>93</option>" & _
	     vbcrlf & "<option value=94>94</option>" & _
	     vbcrlf & "<option value=95>95</option>" & _
	     vbcrlf & "<option value=96>96</option>" & _
	     vbcrlf & "<option value=97>97</option>" & _
	     vbcrlf & "<option value=98>98</option>" & _
	     vbcrlf & "<option value=99>99</option>" & _
	     vbcrlf & "</select></td></tr>" & _
	     vbcrlf & "<tr><td align=center width=80 height=25>姓别：</td>" & _
	     vbcrlf & "<td width=224>&nbsp;Boy <input type=radio value='boy' name=wrsex checked class=bg_1>&nbsp;&nbsp; Girl <input type=radio name=wrsex value='girl' class=bg_1></td>" & _
	     vbcrlf & "<td width=196 rowspan=5 align=center colspan=2><img border=0 src='images/face/0.gif' name=wrimg></td></tr>" & _
	     vbcrlf & "<tr><td align=center height=25>QQ：</td>" & _
	     vbcrlf & "<td width=224><input type=text name=wrqq size=28 maxlength=15></td></tr>" & _
	     vbcrlf & "<tr><td align=center height=25>电子邮件：</td>" & _
	     vbcrlf & "<td width=224><input type=text name=wremail size=28 maxlength=50></td></tr>" & _
	     vbcrlf & "<tr><td align=center height=25>你的主页： </td>" & _
	     vbcrlf & "<td width=224><input type=text name=wrurl size=28 value='http://' maxlength=50></td></tr>" & _
	     vbcrlf & "<tr><td align=center height=25>来自：</td>" & _
	     vbcrlf & "<td width=224><input type=text name=wrwhe size=28 maxlength=20></td></tr>" & _
	     vbcrlf & "<tr><td align=center height=25>留言主题：</td>" & _
	     vbcrlf & "<td width=420 colspan=3><input type=text name=wrtopic size=38 maxlength=50>" & redx & "</td></tr>" & _
	     vbcrlf & "<tr><td align=center height=25>表情图标： </td>" & _
	     vbcrlf & "<td align=left width=420 colspan=3>"&icon_type(7,1)&"</td></tr>" & _
	     vbcrlf & "<tr><td align=center width=80 valign=top><br>你的留言：<br><br></td>" & _
	     vbcrlf & "<td width=420 colspan=3>" & _
	     vbcrlf & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
	     vbcrlf & "<tr><td width='69%'><textarea rows=7 name=wrword cols=60 maxlength=1000 title='按 Ctrl+Enter 可直接发送' onkeydown=""javascript:frm_quicksubmit();""></textarea></td></tr></table>" & _
	     vbcrlf & "</td></tr><tr>" & _
	     vbcrlf & "<td align=center width=80 height=25>是否隐藏：</td>" & _
	     vbcrlf & "<td width=420 colspan=3><input type=radio name=wrhidden value='no' checked class=bg_1>正常<input type=radio name=wrhidden value='yes' class=bg_1>隐藏" & redx & "选择隐藏后，此留言只有站长才可以看到。</td></tr>" & _
	     vbcrlf & "<tr height=50><td></td><td colspan=3>" & _
	     vbcrlf & "<input type=submit name=wsubmit value=' 可 以 发 送 啦 ' onclick=""return check(write_frm)"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & _
	     vbcrlf & "<input type=reset value=' 重 新 再 来 ' onclick=""return reset()"">" & _
	     vbcrlf & "</td></form></tr></table><br>"
end function

function write_chk()
  dim founderr,drname
  dim fssg:fssg=int(web_var(web_num,26))        '防刷时间设置(单位：秒)
  drname=trim(request.form("wrname"))
  drname=code_form(drname)
  founderr=""
  if founderr="" then
  dim rs9,sql9
  sql9="select top 1 nname,tim from gb_data where nname='"&drname&"' order by id desc"
  set rs9=conn.execute(sql9)
  if rs9.eof then
  rs9.close:set rs9=nothing
    response.write rep_chk()
  else
  if now()-rs9("tim")<fssg*0.000011574 then           '大约 0.000011574 为 1 秒
  rs9.close:set rs9=nothing
    response.write VbCrLf & "<br><font class=red>本留言板起用了防刷新机制，<font class=blue>"&fssg&"</font> 秒后才能重新签写留言</font>" & VbCrLf & "<br><br><br><br><a href='gbook.asp'>返回站内留言</a>"
  else
    response.write rep_chk()
  end if 
  end if
  else
    response.write found_error(founderr,"250")
  end if
end function

function rep_chk()
  dim founderr,drname,drsex,drqq,dremail,drurl,drwhe,drtopic,dricon,drface,drword,drremark,drhidden
  drname=trim(request.form("wrname"))
  drname=code_form(drname)'---------------
  drsex=trim(request.form("wrsex"))
  drqq=trim(request.form("wrqq"))
  if drqq="" or isnull(drqq) then drqq="nuller"
  dremail=trim(request.form("wremail"))
  if dremail="" or isnull(dremail) then dremail="nuller"
  drurl=trim(request.form("wrurl"))
  if drurl="http://" or isnull(drurl) then drurl="nuller"
  drwhe=trim(request.form("wrwhe"))
  drwhe=code_form(drwhe)'---------------
  if drwhe="" or isnull(drwhe) then drwhe="nuller"
  dricon=trim(request.form("icon"))

     set rs=server.createobject("adodb.recordset")
  rs.open "select face from user_data where username='"&login_username&"'",conn,1,1
  if not rs.eof then
  drface=trim(rs("face"))
  else
  drface=trim(request.form("wrface"))
  end if
  rs.close
  set rs=nothing

  drtopic=trim(request.form("wrtopic"))
  drtopic=code_form(drtopic)'---------------
  drword=request.form("wrword")
  drremark=request.form("wrremark")
  drhidden=trim(request.form("wrhidden"))
  founderr=""
  if symbol_name(drname)="no" then
    founderr=founderr & "<br><li>请输入您的 <font class=founderr>用户名</font>（长度不能大于20）！"
  end if
  if drqq<>"nuller" then 
    if not(isnumeric(drqq)) then
      founderr=founderr & "<br><li>您的 <font class=founderr>QQ</font>> 只能为数字！"
    end if
  end if
  if dremail<>"nuller" then 
    if email_ok(dremail)=false then
      founderr=founderr & "<br><li>您输入的 <font class=founderr>Email</font> 格式有错误！"
    end if
  end if
  if drtopic="" or isnull(drtopic) then
    founderr=founderr & "<br><li><font class=founderr>主题</font> 是必需要的！请输入。"
  end if
  if drword="" or isnull(drword) then
    founderr=founderr & "<br><li><font class=founderr>留言内容</font> 是必需要的！请输入。"
  end if
    dim rs,strsql
    set rs=server.createobject("adodb.recordset")
    strsql="select * from gb_data where (id is null)"
    rs.open strsql,conn,1,3
    rs.addnew
    rs("nname")=drname
    rs("sex")=drsex
    rs("whe")=drwhe
    rs("qq")=drqq
    rs("email")=dremail
    rs("url")=drurl
    rs("ip")=ip_sys(1,1)
    rs("sys")=ip_sys(3,0)
    rs("icon")=dricon
    rs("face")=drface
    rs("topic")=drtopic
    rs("word")=drword
    rs("tim")=now_time
    rs("re_icon")="0"
    if drhidden="yes" then
      rs("hidden")=true
    else
      rs("hidden")=false
    end if
    rs.update
    rs.close:set rs=nothing
    response.write VbCrLf & "<br>！！！<font class=red>谢谢你的留言</font>！！！" & VbCrLf & "<br><br><a href='gbook.asp'>返回站内留言</a>" & VbCrLf & "<br><br>（系统将在 " & web_var(web_num,5) & " 秒钟后自动返回）" & _
		   VbCrLf & "<meta http-equiv='refresh' content='" & web_var(web_num,5) & "; url=gbook.asp'>"
end function
%>