conn.asp

个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站

<%
Response.Buffer = True ' 打开页面缓冲 
on error resume next	'打开容错错理

dim dd,connstr
dd="admin/#&qwbm_data.www.asp.mdb"
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath (""&dd&"")
set conn=server.createobject("adodb.connection")
conn.open connstr

If Err.Number <> 0 Then
	Err.Clear
	Set conn = Nothing	
   	Response.Clear  ' 清除缓冲区
	response.Write "数据库链接错误" ' 错误处理
	Response.End
End If

sub errbox(boxvalue,boxurl,box1,box2,box3)
	if boxvalue = "" then
		boxvalues = ""
	else
		boxvalues = boxvalue
	end if
	
	if box1 = "1" then
		boxurls = boxurl
	else
		if boxurl = "" then
			boxurls = "history.go(-1);"
		else
			boxurls = "window.location.href = '"& boxurl &"';"
		end if
	end if
	
	if box1 = "1" then
		response.write "<style>body {background:#fff;margin:auto;text-align:center;}.box1 {line-height:32px;font-size:14px;margin:60px;clear:both;}</style><div class='box1'>"& boxvalues &"<br /><a href='javascript:history.go(-1);'>后退至上一页</a>　<a href='"& boxurls &"'>转到下一页</a></div>"
		response.end
	else
		response.write "<script>alert('"& boxvalues &"');"& boxurls &"</script>"
		response.end	
	end if
end sub

set wwrs=server.CreateObject("adodb.recordset")
wwrs.open "select * from qwbmset where id=1",conn,1,1
	qwbmset1 = wwrs("qwbmurl")
	qwbmset2 = wwrs("qwbmtitle")
	qwbmset3 = wwrs("qwbmkeywords")
	qwbmset4 = wwrs("qwbmdescription")
	qwbmset5 = wwrs("qwbmicp")
	qwbmset6 = wwrs("qwbmfooter")
	qwbmset7 = wwrs("qwbmrequest")
wwrs.close
set wwrs=nothing

set ssrs=server.CreateObject("adodb.recordset")
ssrs.open "select * from qwbmbookset where id=1",conn,1,1
	qwbmbkset1 = ssrs("btitle")
	qwbmbkset2 = ssrs("bok")
	qwbmbkset3 = ssrs("bshenhe")
	qwbmbkset4 = ssrs("bout")
	qwbmbkset5 = ssrs("bpages")
	qwbmbkset6 = ssrs("blength")
	qwbmbkset7 = ssrs("bobject")
	qwbmbkset8 = ssrs("bjgtime")
	qwbmbkset9 = ssrs("btime")
	qwbmbkset10= ssrs("buseid")
	qwbmbkset11= ssrs("bskin")
ssrs.close
set ssrs=nothing

Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
On Error Resume Next
Fy_Url=LCase(Request.ServerVariables("QUERY_STRING"))
Fy_a=split(Fy_Url,"&")
redim Fy_Cs(ubound(Fy_a))
On Error Resume Next
for Fy_x=0 to ubound(Fy_a)
	Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1)
Next
For Fy_x=0 to ubound(Fy_Cs)
	If Fy_Cs(Fy_x)<>"" Then
		If Instr(LCase(Request(Fy_Cs(Fy_x))),"'")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"and")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"select")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"update")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"chr")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"delete%20from")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),";")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"insert")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"mid")<>0 Or Instr(LCase(Request(Fy_Cs(Fy_x))),"master.")<>0 Then
		Select Case Fy_Cl
		  Case "1"
			call errbox("因为你的某些非法操作,系统已经锁定了你的IP<br />你可以联系管理员：深山行者 QQ：<a title='深山行者' href='tencent://message/?uin=565449214&Site=深山行者&Menu=yes' target='blank'>565449214</a><br />跳转到<a href='http://www.qwbm.com' target='_blank'>网站首页</a>","http://www.qwbm.com","1","","")
		  Case "2"
		call errbox("因为你的某些非法操作,系统已经锁定了你的IP<br />你可以联系管理员：深山行者 QQ：<a title='深山行者' href='tencent://message/?uin=565449214&Site=深山行者&Menu=yes' target='blank'>565449214</a><br />跳转到<a href='http://www.qwbm.com' target='_blank'>网站首页</a>","http://www.qwbm.com","1","","")
		  Case "3"
			call errbox("因为你的某些非法操作,系统已经锁定了你的IP<br />你可以联系管理员：深山行者 QQ：<a title='深山行者' href='tencent://message/?uin=565449214&Site=深山行者&Menu=yes' target='blank'>565449214</a><br />跳转到<a href='http://www.qwbm.com' target='_blank'>网站首页</a>","http://www.qwbm.com","1","","")
		End Select
		Response.End
		End If
	End If
Next

function adcallobj(xx)	
	adcallobjs=split(qwbmcms15,"|")
	for i=0 to ubound(adcallobjs)		
		if instr(xx,adcallobjs(i))>0 then
			response.write "<script>alert(""您的留言涉嫌含有不礼貌用语或广告，拒绝留言！"");history.go(-1);</script>"
			response.end()
		end if		
	next	
end function

function plhtml(fString)
	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = replace(fString, " ","&nbsp;")
	fString = replace(fString, "＇", "'")
	fString = Replace(fString, CHR(32), "&nbsp;")
	fString = Replace(fString, CHR(34), "&quot;")
	fString = Replace(fString, CHR(39), "&#39;")
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "<P></P>")
	fString = Replace(fString, CHR(10), "<br />")
	fString = replace(fString, VBCrlf,"<br />")	
	plhtml = fString
end function

function qqface(qqimg)		
	qqimg = replace(qqimg,"[Q0]","<img src='images/q/face0.gif' />")
	qqimg = replace(qqimg,"[Q1]","<img src='images/q/face1.gif' />")
	qqimg = replace(qqimg,"[Q2]","<img src='images/q/face2.gif' />")
	qqimg = replace(qqimg,"[Q3]","<img src='images/q/face3.gif' />")
	qqimg = replace(qqimg,"[Q4]","<img src='images/q/face4.gif' />")
	qqimg = replace(qqimg,"[Q5]","<img src='images/q/face5.gif' />")
	qqimg = replace(qqimg,"[Q6]","<img src='images/q/face6.gif' />")
	qqimg = replace(qqimg,"[Q7]","<img src='images/q/face7.gif' />")
	qqimg = replace(qqimg,"[Q8]","<img src='images/q/face8.gif' />")
	qqimg = replace(qqimg,"[Q9]","<img src='images/q/face9.gif' />")
	qqimg = replace(qqimg,"[Q10]","<img src='images/q/face10.gif' />")
	qqimg = replace(qqimg,"[Q11]","<img src='images/q/face11.gif' />")
	qqimg = replace(qqimg,"[Q12]","<img src='images/q/face12.gif' />")
	qqimg = replace(qqimg,"[Q13]","<img src='images/q/face13.gif' />")
	qqimg = replace(qqimg,"[Q14]","<img src='images/q/face14.gif' />")
	qqimg = replace(qqimg,"[Q15]","<img src='images/q/face15.gif' />")
	qqimg = replace(qqimg,"[Q16]","<img src='images/q/face16.gif' />")
	qqimg = replace(qqimg,"[Q17]","<img src='images/q/face17.gif' />")
	qqimg = replace(qqimg,"[Q18]","<img src='images/q/face18.gif' />")
	qqimg = replace(qqimg,"[Q19]","<img src='images/q/face19.gif' />")
	qqimg = replace(qqimg,"[Q20]","<img src='images/q/face20.gif' />")
	qqface = qqimg
end function




%>
<%sub header(xhtml1,xhtml2,xhtml3,xhtml4,xhtml5)%>
<a name="top" id="top"></a>
<!--banner start-->
<div id="banner">
	<div class="tc"><div class="tl"></div><div class="tr"></div></div>
	<div class="bannerc"><a href="http://www.qwbm.com" target="_blank"></a></div>
	<div class="bc"><div class="bl"></div><div class="br"></div></div>
	<div class="dy"></div>
</div>
<!--banner end-->

<!--gongao start-->
<div id="gongao">
	<div class="tc"><div class="tl"></div><div class="tr"></div></div>
	<div class="gongaoc"></div>
	<div class="bc"><div class="bl"></div><div class="br"></div></div>
	<div class="dy"></div>
</div>
<!--gongao end-->

<!---menu start-->
<div id="menu">	
	<div class="tc"><div class="tl"></div><div class="tr"></div></div>
	<div class="menuc">
		<ul>
			<li<%if xhtml1="1" and actions = "" or  actions = "soso" then response.write " class='on'"%>><a href="index.asp" title="留言板首页"><span>留言板首页</span></a></li>
			<li class="line"></li>
			<li<%if xhtml1="2" then response.write " class='on'"%>><a href="bookadd.asp" title="发表留言"><span>发表留言</span></a></li>
			<li class="line"></li>
			<li<%if xhtml1="1" and actions="so" then response.write " class='on'"%>><a href="index.asp?action=so" title="搜索留言"><span>搜索留言</span></a></li>
			<li class="line"></li>
			<li<%if xhtml1="3" then response.write " class='on'"%>><a href="orther.asp" title="关于程序"><span>关于程序</span></a></li>
			<li class="line"></li>
			<li><a href="http://www.qwbm.com" target="_blank" title="返加首页"><span>现在去看深山行者的最新动向</span></a></li>
		</ul>
	</div>	
	<div class="bc"><div class="bl"></div><div class="br"></div></div>
	<div class="dy"></div>                
</div>
<!--menu end-->
<%if xhtml1="1" then
	smenuname = "留言地带"
elseif xhtml1="2" then
	smenuname = "发表留言"
elseif xhtml1="3" and actions="search" then
	smenuname = "搜索留言"
elseif xhtml1="3" and actions="about" then
	smenuname = "关于程序"
end if%>
<!--smenu start-->
<div id="smenu">
	<div class="tc"><div class="tl"></div><div class="tr"></div></div>
	<div class="smenuc">您所在的位置：<A href="http://www.qwbm.com" target="" title="深山行者个人网站">深山行者个人网站</A> &gt; <%=smenuname%></div>
	<div class="bc"><div class="bl"></div><div class="br"></div></div>
	<div class="dy"></div>
</div>
<!--smenu end-->
<%end sub%>
<%
sub footer(xhtml1,xhtml2,xhtml3,xhtml4,xhtml5)
'call footer("","","","","")
%>
<!--footer start-->
<div id="footer">
	<div class="tc"><div class="tl"></div><div class="tr"></div></div>	
	<div id="fmenu">
		<ul>
			<li><a title="站长简介" target="_blank" href="http://www.qwbm.com/new.asp?id=1">站长简介</a></li>
			<li class="line"><span>/</span></li>
			<li><a title="版权所有" target="_blank" href="http://www.qwbm.com/new.asp?id=2">版权所有</a></li>
			<li class="line"><span>/</span></li>
			<li><a title="网站地图" target="_blank" href="http://www.qwbm.com/new.asp?id=3">网站地图</a></li>
			<li class="line"><span>/</span></li>
			<li><a title="深山行者个人网页欣赏,优秀个人网站欣赏,个人网页,个人网站模板,优秀网页欣赏,免费个人网站,企业网站模板" href="javascript:window.external.AddFavorite('http://www.qwbm.com/','深山行者个人网页欣赏,优秀个人网站欣赏,个人网页,个人网站模板,优秀网页欣赏,免费个人网站,企业网站模板')">收藏本站</a></li>
			<li class="line"><span>/</span></li>
			<li><a title="网站地图" href="http://www.qwbm.com/rss.xml" target="_blank">本站rss订阅</a></li>
			<li class="line"><span>/</span></li>
			<li><a title="返回顶部" href="#top"><span class="fnf00">TOP↑</span></a></li>
		</ul>
	</div>
	<div id="copyright"><%=qwbmset6%> ICP备案：<a href="http://www.miibeian.gov.cn" target="_blank"><%=qwbmset5%></a></div>
	<div class="bc"><div class="bl"></div><div class="br"></div></div>
	<div class="dy"></div>
</div>
<!--footer end-->
<div id="expan1"><span></span></div><div id="expan2"><span></span></div><div id="expan3"><span></span></div>
<div id="expan4"><span></span></div><div id="expan5"><span></span></div><div id="expan6"><span></span></div>
<%end sub%>