conn.asp

1.添加留言：带*号项为必填项

<!--#include file="sqlzr.asp"-->
<%
startime=timer()
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
	Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览！"
	Response.End
End If

Session.Timeout=15
if request("b_rules")=1 then
Response.Buffer = True
else
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
end if


connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/#sunbtob.asp")
set db= Server.CreateObject("ADODB.Connection")
db.Open connstr
%>