conn.asp

熟悉和掌握数据库的基本原理 2. 利用Micorsoft Sql Server工具建立C/S模式的论文数据库,并能提供论文的在线上传下载功能

<%@ LANGUAGE = VBScript CodePage = 936%>
<%

Option Explicit
Response.Buffer = True
Dim Conn
Sub ConnectionDatabase()
	Dim ConnStr,Db
	Db = "Data/mdb0501.mdb"  '请修改数据库，安全起见，请修改为复杂文件名,如##mysql.asp
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
		Response.End
	End If
End Sub

Sub CloseDatabase()
If IsObject(Conn) then
Conn.close
Set Conn=Nothing
End If
End Sub
function HTMLEncode(fString)
if not isnull(fString) then
	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = Replace(fString, CHR(32), "&nbsp;")
	fString = Replace(fString, CHR(9), "&nbsp;")
	fString = Replace(fString, CHR(34), "&quot;")
	fString = Replace(fString, CHR(39), "&#39;")
	fString = Replace(fString, vbCrLf & vbCrLf, "<P>")
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10), "<BR>")

	HTMLEncode = fString
end if
end function
function getTopic(str,strlen)
	if str="" then
		getTopic=""
		exit function
	end if
	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
			getTopic=left(str,i) & "…"
			exit for
		else
			getTopic=str
		end if
	next
	getTopic=getTopic
end function

function myfilesize(xxx)
dim show11
show11=xxx & " Byte" 
if xxx>=1024 then
   xxx=(xxx/1024)
   show11=round(xxx,2) & " KB"
end if
if xxx>=1024 then
   xxx=(xxx/1024)
   show11=round(xxx,2) & " MB"
end if
myfilesize=show11
end function
function isInteger(para)
     on error resume next
     dim str
     dim l,i
     if isNUll(para) then 
        isInteger=false
        exit function
     end if
     str=cstr(para)
     if trim(str)="" then
        isInteger=false
        exit function
     end if
     l=len(str)
     for i=1 to l
         if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
            isInteger=false 
            exit function
         end if
     next
     isInteger=true
     if err.number<>0 then err.clear
end function

function ChkPost()
dim server_v1,server_v2
	chkpost=false
	server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
	server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
	if mid(server_v1,8,len(server_v2))<>server_v2 then
		chkpost=false
	else
		chkpost=true
	end if
end function
%>