head1.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<%
Server.ScriptTimeout = 30
Session.CodePage = 65001
Response.ContentType = "text/vnd.wap.wml; charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
function checkstr(str)
	if IsNull(str) then exit function
	str=trim(str)
	str=replace(str,"&","&amp;")
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","&apos;")
	str=replace(str,"""","&quot;")
	str=replace(str,"$","$$")
	str=replace(str,"&nbsp;","")
        str=replace(str,Chr(13),"<br/>")
	checkstr=str
end function
function z
if session("q")<>"1" then
response.redirect("denlu.asp")
end if
end function
function f
if session("q")="" then
response.redirect("denlu.asp")
end if
end function
dim cn
function opendata
on error resume next
Set cn=server.CreateObject("adodb.connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("#database.asp")
if err then
	cn.close
	set cn=nothing
	err.clear
	response.Clear()
	response.write("数据库连接错误,请与管理员联系<br/>")
	response.end()
end if
end function
function closedata
cn.close
set cn=nothing
end function
function fa
	response.Flush()
end function
%><!--#include file="inc/hsk.asp"-->