<% page = Request("page") if page="" then page=1 end if action = Request("action") action_e = Request.Form("action_e") %>
留言说明
    欢迎您来到<%=webtitle%>留言簿,为维护网上公共秩序和社会稳定,请您自觉遵守以下条款:
一、不得利用本留言簿危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本留言簿制作、复制和传播下列信息:
(一)煽动抗拒、破坏宪法和法律、行政法规实施的;
(二)煽动颠覆国家政权,推翻社会主义制度的;
(三)煽动分裂国家、破坏国家统一的;
(四)煽动民族仇恨、民族歧视,破坏民族团结的;
(五)捏造或者歪曲事实,散布谣言,扰乱社会秩序的;
(六)宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的;
(七)公然侮辱他人或者捏造事实诽谤他人的,或者进行其他恶意攻击的;
(八)损害国家机关信誉的;
(九)其他违反宪法和法律行政法规的;
(十)进行商业广告行为的。
二、互相尊重,对自己的言论和行为负责。
<%call Main_Menu()%>
<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '主程序 Select Case action_e Case "" Case "Add_New" Call Add_New_Execute() Case "reply" Call Reply_Execute() Case "admin" Call Admin_Login_Execute() Case "EditPWD" Call EditPWD_Execute() Case "Edit" Call Edit_Execute() End Select Select Case action Case "Admin_Login" Call Admin_Login() Case "Exit" Call Exit_Admin() Call View_Words() Case "" Call View_Words() Case "Add_New" Call Add_New() Case "reply" Call Reply() Case "View_Words" Call View_Words() Case "Del" Call Del() Call View_Words() Case "EditPWD" Call EditPWD() Case "Edit" Call Edit() End Select %>
<% ' 留言本菜单 Sub Main_Menu() %>   添加留言  查看留言 <% If session("adminlogin")=sessionvar and session("flag")=1 Then %>   退出管理 <% End If %>    <% End Sub '查看留言 Sub View_Words() Set Rs = Server.CreateObject("ADODB.RecordSet") Sql="Select * From happywz_GUESTBOOK Order By date Desc" Rs.Open Sql,Conn,1,1 if rs.eof then %>无留言<% else TotalRecord=Rs.RecordCount Rs.PageSize = 10 PageSize = Rs.PageSize PageCount=Rs.PageCount If page="" Then Rs.AbsolutePage = 1 Else Rs.AbsolutePage = page End If %> <% do while i < PageSize And not rs.eof %>
<%=Rs("name")%>
<%if Rs("sex")="0" then%> <%elseif Rs("sex")="1" then%> <%elseif Rs("sex")="2" then%> <%End If%>
 <%=Rs("date")%> <%If Rs("city")<>"" Then%> 来自<%=Rs("city")%>" border=0 height=16 src="images/city.gif" width=16>  <%End If%> <%If Rs("email")<>"" Then%> ">写信">  <%End If%> <%If Rs("qq")<>"" Then%> 的QQ号码是<%=Rs("qq")%>" border=0 height=16 src="images/qq.gif" width=16>  <%End If%> <%If Rs("uc")<>"" Then%> 的uc号码是<%=Rs("uc")%>" border=0 height=16 src="images/qq.gif" width=16>  <%End If%> <%If Rs("web")<>"" Then%> " target="_blank">的主页看看">  <%End If%> 的IP地址为<%=Rs("ip")%>" height=16 src="images/ip.gif" width=16>  <% If session("adminlogin")=sessionvar and session("flag")=1 Then %> "> "> ">  <% End If %>
<%If Rs("reply")<>"" Then%> <%End If%>
<%If Rs("admin")="0" Then%> [ <%if Rs("title")="1" then%> 留言 <%elseif Rs("title")="2" then%> 建议 <%elseif Rs("title")="3" then%> 报错 <%elseif Rs("title")="4" then%> 连接 <%elseif Rs("title")="5" then%> 其它 <%End If%> ]<%=Ubb(unHtml(Rs("words")))%> <%elseIf session("adminlogin")=sessionvar and session("flag")=1 Then %> [ <%if Rs("title")="1" then%> 留言 <%elseif Rs("title")="2" then%> 建议 <%elseif Rs("title")="3" then%> 报错 <%elseif Rs("title")="4" then%> 连接 <%elseif Rs("title")="5" then%> 其它 <%End If%> ]<%=Ubb(unHtml(Rs("words")))%> <%else%> ****秘密留言!管理员可见!**** <%End If%>
<%=Ubb(unHtml(Rs("reply")))%>
<% rs.movenext i=i+1 loop Rs.Close Set Rs = Nothing dim n n= TotalRecord \ PageSize %>

 

<%end if End Sub '添加一条新留言 Sub Add_New()%>
您的姓名: *
您的性别: 人妖 亚当 夏娃
电子邮箱:
腾迅 QQ:
个人主页:
来自哪里:
类型选择: 留言 建议 报错 连接 其它
留言内容:
是否隐藏: 是  * 选择隐藏后,此留言只有管理员可以看到。
<% End Sub%> <% '添加新留言到数据库 Sub Add_New_Execute() If Request.Form("name")="" Then Response.Write "" Response.End End If If Len(Request.Form("name"))>20 Then Response.Write "" Response.End End If If Request.Form("email")<>"" Then If instr(Request.Form("email"),"@")=0 or instr(Request.Form("email"),"@")=1 or instr(Request.Form("email"),"@")=len(email) then Response.Write "" Response.End End If End If If Request.Form("words")="" Then Response.Write "" Response.End End If Set Rs = Server.CreateObject("ADODB.RecordSet") Sql="Select * From happywz_GUESTBOOK" Rs.Open Sql,Conn,2,3 Rs.AddNew Rs("name")=Server.HTMLEncode(Request.Form("name")) Rs("sex")=Server.HTMLEncode(Request.Form("sex")) Rs("qq")=Server.HTMLEncode(Request.Form("qq")) Rs("uc")=Server.HTMLEncode(Request.Form("uc")) Rs("city")=Server.HTMLEncode(Request.Form("city")) Rs("web")=Server.HTMLEncode(Request.Form("web")) Rs("email")=Server.HTMLEncode(Request.Form("email")) Rs("admin")=Server.HTMLEncode(Request.Form("admin")) Rs("title")=Server.HTMLEncode(Request.Form("title")) Rs("words")=Server.HTMLEncode(Request.Form("words")) Rs("date")=Now() Rs("ip")=request.servervariables("remote_addr") Rs.Update Rs.Close Set Rs = Nothing Response.write "" End Sub Sub Exit_Admin() Session.Abandon End Sub '删除数据 Sub Del() '删除数据 Conn.Execute("Delete * From happywz_GUESTBOOK Where id="&Request("id")) End Sub '回复留言添加到数据库 Sub Reply_Execute() Set Rs = Server.CreateObject("ADODB.RecordSet") Sql="Select reply From happywz_GUESTBOOK Where id="&Request.Form("id") Rs.Open Sql,Conn,2,3 Rs("reply") = Server.HTMLEncode(Request.Form("reply")) Rs.Update Rs.Close Set Rs=Nothing End Sub Sub Edit_Execute() Set Rs = Server.CreateObject("ADODB.RecordSet") Sql="Select * From happywz_GUESTBOOK Where id="&Request.Form("id") Rs.Open Sql,Conn,2,3 Rs("words") = Server.HTMLEncode(Request.Form("words")) Rs("reply") = Server.HTMLEncode(Request.Form("reply")) Rs.Update Rs.Close Set Rs=Nothing End Sub Conn.Close Set Conn = Nothing function unHtml(content) unHtml=content if content <> "" then unHtml=replace(unHtml,"<","<") unHtml=replace(unHtml,">",">") unHtml=replace(unHtml,chr(34),""") unHtml=replace(unHtml,chr(13),"
") unHtml=replace(unHtml,chr(32)," ") end if end function function ubb(content) ubb=content nowtime=now() UBB=Convert(ubb,"code") UBB=Convert(ubb,"html") UBB=Convert(ubb,"url") UBB=Convert(ubb,"color") UBB=Convert(ubb,"font") UBB=Convert(ubb,"size") UBB=Convert(ubb,"quote") UBB=Convert(ubb,"email") UBB=Convert(ubb,"img") UBB=Convert(ubb,"swf") UBB=AutoURL(ubb) ubb=replace(ubb,"[b]","",1,-1,1) ubb=replace(ubb,"[/b]","",1,-1,1) ubb=replace(ubb,"[i]","",1,-1,1) ubb=replace(ubb,"[/i]","",1,-1,1) ubb=replace(ubb,"[u]","",1,-1,1) ubb=replace(ubb,"[/u]","",1,-1,1) ubb=replace(ubb,"[blue]","",1,-1,1) ubb=replace(ubb,"[/blue]","",1,-1,1) ubb=replace(ubb,"[red]","",1,-1,1) ubb=replace(ubb,"[/red]","",1,-1,1) for i=1 to 28 ubb=replace(ubb,"{:em"&i&"}","",1,6,1) ubb=replace(ubb,"{:em"&i&"}","",1,-1,1) next ubb=replace(ubb,"["&chr(176),"[",1,-1,1) ubb=replace(ubb,chr(176)&"]","]",1,-1,1) ubb=replace(ubb,"/"&chr(176),"/",1,-1,1) end function function Convert(ubb,CovT) cText=ubb startubb=1 do while Covt="url" or Covt="color" or Covt="font" or Covt="size" startubb=instr(startubb,cText,"["&CovT&"=",1) if startubb=0 then exit do endubb=instr(startubb,cText,"]",1) if endubb=0 then exit do Lcovt=Covt startubb=startubb+len(lCovT)+2 text=mid(cText,startubb,endubb-startubb) codetext=replace(text,"[","["&chr(176),1,-1,1) codetext=replace(codetext,"]",chr(176)&"]",1,-1,1) codetext=replace(codetext,"/","/"&chr(176),1,-1,1) select case CovT case "color" cText=replace(cText,"[color="&text&"]","",1,1,1) cText=replace(cText,"[/color]","",1,1,1) case "font" cText=replace(cText,"[font="&text&"]","",1,1,1) cText=replace(cText,"[/font]","",1,1,1) case "size" if IsNumeric(text) then if text>6 then text=6 if text<1 then text=1 cText=replace(cText,"[size="&text&"]","",1,1,1) cText=replace(cText,"[/size]","",1,1,1) end if case "url" cText=replace(cText,"[url="&text&"]","",1,1,1) cText=replace(cText,"[/url]","",1,1,1) case "email" cText=replace(cText,"["&CovT&"="&text&"]","",1,1,1) cText=replace(cText,"[/"&CovT&"]","",1,1,1) end select loop startubb=1 do startubb=instr(startubb,cText,"["&CovT&"]",1) if startubb=0 then exit do endubb=instr(startubb,cText,"[/"&CovT&"]",1) if endubb=0 then exit do Lcovt=Covt startubb=startubb+len(lCovT)+2 text=mid(cText,startubb,endubb-startubb) codetext=replace(text,"[","["&chr(176),1,-1,1) codetext=replace(codetext,"]",chr(176)&"]",1,-1,1) codetext=replace(codetext,"/","/"&chr(176),1,-1,1) select case CovT case "url" cText=replace(cText,"["&CovT&"]"&text,""&codetext,1,1,1) cText=replace(cText,""&codetext&"[/"&CovT&"]",""&codetext&"",1,1,1) case "email" cText=replace(cText,"["&CovT&"]","",1,1,1) cText=replace(cText,"[/"&CovT&"]","",1,1,1) case "html" codetext=replace(codetext,"
",chr(13),1,-1,1) codetext=replace(codetext," ",chr(32),1,-1,1) Randomize rid="temp"&Int(100000 * Rnd) cText=replace(cText,"[html]"&text,"代码片断如下: ",1,1,1) case "img" cText=replace(cText,"[img]"&text,""&chr(34)&" target=_blank>::点击图片在新窗口中打开::",1,1,1) case "code" cText=replace(cText,"[code]"&text,"以下内容为程序代码
"&codetext,1,1,1) cText=replace(cText,"以下内容为程序代码
"&codetext&"[/code]","以下内容为程序代码
"&codetext&"
",1,1,1) case "quote" atext=replace(text,"[img]","",1,-1,1) atext=replace(atext,"[/img]","",1,-1,1) atext=replace(atext,"[swf]","",1,-1,1) atext=replace(atext,"[/swf]","",1,-1,1) atext=replace(atext,"[html]","",1,-1,1) atext=replace(atext,"[/html]","",1,-1,1) atext=SplitWords(atext,350) atext=replace(atext,chr(32)," ",1,-1,1) cText=replace(cText,"[quote]"&text,"

"&atext,1,1,1) cText=replace(cText,"

"&atext&"[/quote]","

"&atext&"
",1,1,1) case "swf" cText=replace(cText,"[swf]"&text,"影片地址:
"&text&"
",1,1,1) cText=replace(cText,""&"[/swf]",""&"",1,1,1) end select loop Convert=cText end function function AutoURL(ubb) cText=ubb startubb=1 do startubb=1 endubb_a=0 endubb_b=0 endubb=0 startubb=instr(startubb,cText,"http://",1) if startubb=0 then exit do endubb_b=instr(startubb,cText,"<",1) endubb_a=instr(startubb,cText," ",1) endubb=endubb_a if endubb=0 then endubb=endubb_b end if if endubb_b0 then endubb=endubb_b end if if endubb=0 then lenc=ctext endubb=len(lenc)+1 end if if startubb>endubb then exit do text=mid(cText,startubb,endubb-startubb) codetext=text urllink=""&codetext&" " urllink=replace(urllink,"/","/"&chr(176),1,-1,1) cText=replace(cText,text,urllink,1,1,1) loop AutoURL=cText end function %>