<%=bookname%>

<% if request("skinid")<>"" then Response.Cookies("ceocio").Expires=Date+1 response.Cookies("ceocio")("skinid")=request("skinid") end if %> <% dim startime,endtime startime=timer() Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("gb.mdb") %> <% '留言本基本变量设置 'WGB Ver3.0 dim gbset,posttime,splitwords1,badwords1,sitename,url,email,maxdata,skinid,version,opengb dim baseurl,basesite,usesplitwords,usebadwords,usemaxdata,listpagetype,msgperpage,bookname dim content,re,ubbedit,maxtext sub getconst() sql = "select * from setting" set rs = server.CreateObject ("adodb.recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请指定正确的参数。" response.end else gbset=split(rs(0),",") posttime=gbset(0) listpagetype=gbset(1) opengb=gbset(2) usesplitwords=gbset(3) usebadwords=gbset(4) usemaxdata=gbset(5) msgperpage=gbset(6) '是否显示编辑工具 ubbedit=gbset(7) '限制留言使用姓名 splitwords1=rs("splitwords") '过滤字符 badwords1=rs("badwords") bookname=rs("bookname") sitename=rs("sitename") url=rs("url") email=rs("email") maxdata=rs("maxdata") maxtext=rs("maxtext") skinid=rs("skinid") version=rs("version") baseurl=rs("baseurl") basesite=rs("basesite") end if rs.close set rs=nothing end sub call getconst() %> <% dim bg,lybg,writebg1,writebg2,bgpic dim formcolor,formbg,formborder,formtext dim jnfontcolor,namecolor,nameshadow,gbtextcolor,gbtextshadow dim textcolor,maincolor,linkcolor,hovercolor dim bar,barface,barhighlight,barshadow,bar3d,bararrow,bartrack,bardarkshadow dim replycolor,recolor,copyrightbg sub getskin() if request.cookies("ceocio")("skinid")<>"" then skinid=request.cookies("ceocio")("skinid") end if sql = "select * from skin where skinid="&skinid set rs = server.CreateObject ("adodb.recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请指定正确的参数。" response.end else bg=rs("bg") lybg=rs("lybg") writebg1=rs("writebg1") writebg2=rs("writebg2") bgpic=rs("bgpic") copyrightbg=rs("copyrightbg") replycolor=rs("replycolor") recolor=rs("recolor") formcolor=split(rs("formcolor"),",") formbg=formcolor(0) formborder=formcolor(1) formtext=formcolor(2) jnfontcolor=split(rs("jnfontcolor"),",") namecolor=jnfontcolor(0) nameshadow=jnfontcolor(1) gbtextcolor=jnfontcolor(2) gbtextshadow=jnfontcolor(3) textcolor=split(rs("textcolor"),",") maincolor=textcolor(0) linkcolor=textcolor(1) hovercolor=textcolor(2) bar=split(rs("bar"),",") barface=bar(0) barhignlight=bar(1) barshadow=bar(2) bar3d=bar(3) bararrow=bar(4) bartrack=bar(5) bardarkshadow=bar(6) end if rs.close set rs=nothing end sub call getskin() %> <% 'don't modify the code if request("copyright")="liuwei" then response.redirect "http://www.ceocio.net" end if%> <% function ChkBadWords(fString) if not(isnull(BadWords) or isnull(fString)) then bwords = split(BadWords, "|") for i = 0 to ubound(bwords) fString = Replace(fString, bwords(i), string(len(bwords(i)),"*")) next ChkBadWords = fString end if end function function HTMLEncode(fString) if not isnull(fString) then 'fString = Replace(fString, CHR(38), "&") 'fString = replace(fString, ">", ">") 'fString = replace(fString, "<", "<") 'fString = Replace(fString, CHR(39), "'") 'fString = Replace(fString, CHR(32), " ") 'fString = Replace(fString, CHR(34), """) 'fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10), "
") HTMLEncode = fString end if end function function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10), "
") HTMLcode = fString end if end function function HTMLDecode(fString) if not isnull(fString) then 'fString = Replace(fString, CHR(38), "&") 'fString = replace(fString, ">", ">") 'fString = replace(fString, "<", "<") 'fString = Replace(fString, CHR(32), " ") 'fString = Replace(fString,"",CHR(13)) fString = Replace(fString,"
",CHR(10)) HTMLDecode = fString end if end function function UBBCode(strContent) if strAllowHTML <> 1 then strContent = HTMLEncode(strContent) else strContent = HTMLcode(strContent) end if dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="\[IMG\](.[^\[]*)\[\/IMG\]" strContent=re.Replace(strContent,"") re.Pattern="\[IMG=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/IMG\]" strContent=re.Replace(strContent,"") '图文混排 re.Pattern="\[PIC\](.[^\[]*)\[\/PIC\]" strContent=re.Replace(strContent,"") re.Pattern="\[PIC=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/PIC\]" strContent=re.Replace(strContent,"") re.Pattern="\[FLASH=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/FLASH\]" strContent= re.Replace(strContent,"

") re.Pattern="\[FLASH\](.[^\[]*)\[\/FLASH\]" strContent= re.Replace(strContent,"

") re.Pattern="(\[URL\])(http:\/\/.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[EMAIL\])(mailto:\/\/.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[EMAIL\])(.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[URL=(http:\/\/.[^\[]*)\])(.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"$3") re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"$3") re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern = "(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"$1") re.Pattern = "[^>=""](mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"$1") re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]" strContent=re.Replace(strContent,"

") re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]" strContent=re.Replace(strContent,"

") re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]" strContent=re.Replace(strContent,"

") re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]" strContent=re.Replace(strContent,"

") re.Pattern="(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])" strContent=re.Replace(strContent,"$3") re.Pattern="(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])" strContent=re.Replace(strContent,"$3") re.Pattern="(\[align=(.[^\[]*)\])(.*)(\[\/align\])" strContent=re.Replace(strContent,"

") re.Pattern="(\[QUOTE\])(.*)(\[\/QUOTE\])" strContent=re.Replace(strContent,"

") re.Pattern="(\[fly\])(.*)(\[\/fly\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[move\])(.*)(\[\/move\])" strContent=re.Replace(strContent,"$2") re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]" strContent=re.Replace(strContent,"$4

") re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]" strContent=re.Replace(strContent,"$4

") re.Pattern="(\[i\])(.[^\[]*)(\[\/i\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[u\])(.[^\[]*)(\[\/u\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[b\])(.[^\[]*)(\[\/b\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[fly\])(.[^\[]*)(\[\/fly\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=1\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=2\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=3\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=4\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[center\])(.[^\[]*)(\[\/center\])" strContent=re.Replace(strContent,"$2") '以下扩展 re.Pattern="(\[li\])(.[^\[]*)(\[\/li\])" strContent=re.Replace(strContent,"

") '字体背景 re.Pattern="(\[fontbg=(.[^\[]*)\])(.[^\[]*)(\[\/fontbg\])" strContent=re.Replace(strContent,"$3") '删除线 re.Pattern="(\[strike\])(.[^\[]*)(\[\/strike\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[HTML\])(.[^\[]*)(\[\/HTML\])" strContent=re.Replace(strContent,"

Code:
$2

") re.Pattern="(\[code\])(.[^\[]*)(\[\/code\])" strContent=re.Replace(strContent,"

Code:
$2

") strContent=ChkBadWords(strContent) set re=Nothing UBBCode=strContent end function %> <% sub listPages() if n <= 1 then exit sub for i=0 to n\msg_per_page-1 for j=1 to msg_per_page %> ?page=<%=i*msg_per_page+j %>&order=<%=request("order")%>&keytype=<%=request("keytype")%>&keyword=<%=request("keyword")%>">[<% =i*msg_per_page+j %>] <% next next EndPage = n mod msg_per_page for j=1 to EndPage %> ?page=<% =i*msg_per_page+j %>&order=<%=request("order")%>&keytype=<%=request("keytype")%>&keyword=<%=request("keyword")%>">[<% =i*msg_per_page+j %>] <%next%> <%=currentpage%>/<%=n%>Page Always:<%=totalrec%>message <%end sub%> <% sub listPages1() if n <= 1 then exit sub %> <%if currentpage = 1 then%> Home <%else%> ?page=1&order=<%=request("order")%>&keytype=<%=request("keytype")%>&keyword=<%=request("keyword")%>">Home ?page=<%=currentpage-1%>&order=<%=request("order")%>&keytype=<%=request("keytype")%>&keyword=<%=request("keyword")%>"> First <%end if%> <%if currentpage = n then%> Latter page <%else%> ?page=<%=currentpage+1%>&order=<%=request("order")%>&keytype=<%=request("keytype")%>&keyword=<%=request("keyword")%>">Next ?page=<%=n%>&order=<%=request("order")%>&keytype=<%=request("keytype")%>&keyword=<%=request("keyword")%>">End <%end if%> Always:<%=currentpage%>/<%=n%>page <%=msg_per_page%>message/page Altogether:<%=totalrec%>Message <%end sub%> <%=bookname%> <%if bgpic<>"" then%>

<%else%> <%end if%>

Message this

<%=sitename%>--&skinid=<%=request.cookies("ceocio")("skinid")%>"><%=bookname%>

<%if opengb=0 then%> <%else%> <%end if%> <%if session("admin")<>"" then if session("flag")=2 then%> <%end if%> <%else%> <%end if%>

<%order=request("order") if order="" then order="id" end if dim rs dim sql msg_per_page = msgperpage set rs = server.createobject("adodb.recordset") %> <%sql = "select * from gb order by "&order&" desc"%> <%rs.cursorlocation = 3 rs.pagesize = msg_per_page rs.open sql,conn,0,1 if err.number<>0 then response.write "Database Open False" & err.description err.clear else if not (rs.eof and rs.bof) then totalrec = RS.RecordCount if rs.recordcount mod msg_per_page = 0 then n = rs.recordcount\msg_per_page else n = rs.recordcount\msg_per_page+1 end if currentpage = request("page") If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then err.clear currentpage = 1 end if else currentpage = 1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage = currentpage rowcount = rs.pagesize dim i dim k %>

<%do while not rs.eof and rowcount>0%> <% rowcount=rowcount-1 rs.movenext loop end if end if rs.close conn.close set rs=nothing set coon=nothing %>


<%=rs("name")%> .gif">	"> "> "> 's WebSite"> "> "> "> "> "> "> " target="_blank"> 's all info"> <%if session("admin")="" then%> <%else%> <%if session("flag")=1 then%> [">Reply][Login Out] <%else%> [">Delete][">Reply][Login Out] <% end if end if %>
	<%if rs("adminread")=false or session("admin")<>"" then%> .gif"> <%content=rs("content")%> <%=UBBcode(content)%> (<%=rs("time")%>) <%if rs("re")<>"" then%> Reply锛� <%re=rs("re")%> <%response.write UBBCode(re)%> <%else%> <%end if%> <% else response.write "Message send for admin only." end if%>

<%if listpagetype=0 then%> <%call listPages()%> <%else%> <%call listpages1()%> <%end if%>

<%=version%>
Accredit to:<%=sitename%> Contact Us
<%endtime=timer() response.write "Processed Time:"&FormatNumber((endtime-startime)*1000,3)&"ms"%>