db.asp

简单的企业发布信息网站 有留言功能 界面 美观

<%
response.contenttype="text/html;charset=gb2312"
Response.expires=-1 
Response.AddHeader"pragma","no-cache" 
Response.AddHeader"cache-control","no-store" 

function getpage(page)
	if page="" then page=1
	if not isnumeric(page) then page=1
	if page<1 then page=1
	if len(page)>6 then page=1
	page=clng(page)
	getpage=page
end function

function p(str)
   response.Write(str)
end function

function ck(str)
	str=replace(str,"'","＇")
	str=Replace(str,vbcrlf,"[br]")
	str=replace(str,chr(10),"[br]")
	str=replace(str,chr(13),"[br]")
	str=Replace(str,Chr(13)&Chr(10),"[br]")
	str=Replace(str,Chr(9),"[t]")
	str=server.HTMLEncode(str)
	ck=str
end function

function nck(str)
	if not isempty(str) and str<>"" then
	str=replace(str,"＇","'")
	str=replace(str,"[t]","&nbsp;&nbsp;")
	str=replace(str,Chr(32),"&nbsp;")
	str=replace(str," ","&nbsp;&nbsp;")
	str=Replace(str,"&amp;","&")
	str=replace(str,"[br]","<br />")
	str=Replace(str,vbcrlf,"<br />")
	str=Replace(str,Chr(9),"&nbsp;&nbsp;")
	nck=str
	end If
end function 

set conn=Server.CreateObject("ADODB.Connection") 
DBPath = Server.MapPath("bbs.mdb")
conn.Open "provider=microsoft.jet.oledb.4.0;data source="&DBPath
%>