<% act=request("act") it=request("it") its=request("its") if it=1 then sit1="selected=""selected""" elseif it=2 then sit2="selected=""selected""" elseif it=3 then sit3="selected=""selected""" else sit1="selected=""selected""" end if if not isnumeric(it) then Response.write"处理 URL 时服务器出错。请与系统管理员联系。" Response.End end if If act="add" then if request("verifyCode")="" then response.write "" Response.End elseif session("GetCode")="" then response.write "" Response.End elseif cstr(session("GetCode"))<>cstr(trim(request("verifyCode"))) then response.write "" Response.End end if Session("GetCode")="" if Trim(request("uName"))="" then response.write"" response.end elseif Trim(request("From"))="" then response.write"" response.end elseif Trim(request("Body"))="" then response.write"" response.end elseif len(trim(request("Body")))>300 then response.write"" response.end end if function IsValidEmail(email) IsValidEmail = true names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end function if Trim(request("Email"))="" then else Messge=IsValidEmail(request("Email")) if Messge=false then response.write "" response.end end if end if set rs = server.createobject("adodb.recordset") sql="select * from gb_Info" rs.open sql, conn,1,3 rs.addnew rs("Name")=request.form("uName") rs("From")=request.form("From") rs("Email")=request.form("Email") rs("it")=request.form("it") if request.form("it")=1 then rs("className")="故障报告" elseif request.form("it")=2 then rs("className")="意见建议" elseif request.form("it")=3 then rs("className")="其它" end if rs("Content")=request.form("Body") rs("IP")=Request.ServerVariables("REMOTE_ADDR") rs("Referer")=request.form("Referer") rs("Time")=Now() rs.update rs.close set rs=nothing conn.close set conn=nothing response.write"" response.end Else %> <% '判断来路 Referer=Request("url") %> 网友留言
爱直播网络电视(www.aizhibo.net)发表留言
姓名称呼: *
来自:
*
E-mail:
分类:
*

留言内容:

*
验证码:
<% set rs = server.createobject("adodb.recordset") if its="" then sql="select * from gb_Info order by id desc" else sql="select * from gb_Info where it="&its&" order by id desc" end if rs.open sql,conn,1,1 maxperpage=10 rs.pagesize=maxperpage totalpage=rs.PageCount totalNum=rs.recordcount if request.querystring("page")="" then page=1 else page=cint(request.querystring("page")) end if if not rs.eof then rs.AbsolutePage=page end if %>
<% if rs.eof and rs.bof then%>
还没有留言哦!
Copyright © 2011 爱直播网络电视 www.aizhibo.net All Rights Reserved
<%response.End%> <%else%> <%for i=1 to rs.pagesize %>
<%=rs("name")%>(<%=rs("From")%> " style="font-size:12px;color:#996600"><%=rs("ClassName")%> <% IPs=rs("IP") ArrIP=split(IPs,".") IP=ArrIP(0)&"."&ArrIP(1)&".*.*" response.Write IP %> <%=rs("time")%>
<% content=rs("content") content=Replace(content,"<","<") content=Replace(content,">",">") content=Replace(content,chr(13),"
") content=Replace(content,chr(32)," ") Response.Write(content) %> <%if isNull(rs("Reply")) then%> <%else%>
管理员回复:
<%=rs("Reply")%> (<%=rs("ReplyTime")%>) <%end if%>
<% rs.movenext if rs.eof then exit for end if next end if %>
 <%=totalNum%>  <%=page%>/<%= totalpage%>  <%if page<2 then%> <%else%> |‹‹‹ <%end if%> <% s=page/10 if s<=1 then s=0 O=s*10+1 T=s*10+10 else s=page\10 O=s*10 T=s*10+10 end if for i= O to T if i<>page then %> <%=i%> <%else%> <%=i%> <% end if if i=totalpage then exit for next %> <%if totalpage-page<1 then%> <%else%> ›››| <%end if%>
<%End if%>
Copyright © 2011 爱直播网络电视 www.aizhibo.net All Rights Reserved
<% rs.close set rs=nothing conn.close set conn=nothing %>