dqe_conn.asp

基于ASP的查询搜索源代码 文件利用ASP对ACCESS数据库进行搜索

<%
Response.Buffer = True ' 打开页面缓冲 
On Error Resume Next  ' 打开错误处理

dim conn,connstr,db
db="DQE_NEWS_DATABASE_TA_MA_DE_SI_TAN_GUO_DONG.txt"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

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

Dim Action,ThisFilePath,ThisFileName,EveryPageNum,UserName,UserPwd,NewsURL,ClassURL
Action=Request("Action")
Sub T(Testname)
	response.write Testname
	response.end()
End Sub

ThisFilePath=Request.ServerVariables("PATH_INFO")
ThisFileName=lcase(Mid(ThisFilePath,InstrRev(ThisFilePath,"/")+1))	'获取本文件的名字
DQE_Path="DQE_UpLoadFile"	'前后都不能带/
DQE_Path0=Replace(ThisFilePath,Mid(ThisFilePath,InstrRev(ThisFilePath,"/")+1),"")&DQE_Path  '原始大小写保持不变
DQE_Path1=Replace(lcase(ThisFilePath),ThisFileName,"")&DQE_Path  '全部小写

Function DQE_Save(Content)
	DQE_Save=Replace(Replace(Content,DQE_Path0,DQE_Path1),DQE_Path1,DQE_Path)
End Function
Function DQE_Get(Content)
	DQE_Get=Replace(Content,DQE_Path,DQE_Path1)
End Function

Function HtmlCode(HtmlStiring)			'定义一个简单的HTML代码替换函数
	HtmlStiring=Replace(HtmlStiring,"<","&lt;")
	HtmlStiring=Replace(HtmlStiring,">","&gt")
	HtmlStiring=Replace(HtmlStiring,VBCrlf,"<br>")
	HtmlStiring=Replace(HtmlStiring," ","&nbsp;")
	HtmlCode=HtmlStiring
End Function

Function TitleLeft(str,strlen)	'函数,将汉字计算为两个字符
	Dim l,t,c, i
	l=len(str)
	t=0
	For i=1 to l
		c=Abs(Asc(Mid(str,i,1)))
	If c>255 then
		t=t+2
	Else
		t=t+1
	End if
	If t>=strlen then
		TitleLeft=left(str,i)&".."
		Exit for
	Else
		TitleLeft=str&""
	End If
	Next
End Function

Session.TimeOut=20		'此处设定后台登陆有效时间
EveryPageNum=12		'此处定义列表每页显示多少条新闻
IsPinglun=1			'此处定义是否开启评论功能:1为开启,0为不开始,默认开启

NewsURL="DQE_News.asp"		'新闻功能文件：如果更改了文件名，请在此处设置
ClassURL="DQE_Class.asp"	'新闻类别功能文件：如果更改了文件名，请在此处设置
loginURL="login.asp"		'后台登陆功能文件：如果更改了文件名，请在此处设置
logincheckURL="logincheck.asp"		'后台登陆检查功能文件：如果更改了文件名，请在此处设置
adminURL="admin.asp"		'管理员设置功能文件：如果更改了文件名，请在此处设置
DQE_UploadPicURL="DQE_UploadPic.asp"		'上传图片功能文件：如果更改了文件名，请在此处设置
DQE_UploadWaiURL="DQE_UploadWai.asp"		'上传其他功能文件：如果更改了文件名，请在此处设置
houtaiURL="houtai.asp"		'后台框架文件：如果更改了文件名，请在此处设置
leftURL="left.asp"		'后台目录文件：如果更改了文件名，请在此处设置
titleURL="title.asp"		'题头文件：如果更改了文件名，请在此处设置

%>