<%
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"		'題頭文件：如果更改了文件名，請在此處設置

%>