conn.asp

来自「好用的贴吧源代码」· ASP 代码 · 共 54 行

<%Session.CodePage=936%>
<%
dim conn,connstr,mdb 
mdb="../Data/#fypostzgfg#.asp" '第一次使用安全起见请更改数据库路径
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(mdb)
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字符串或数据库路径。"
Response.End
End If
sub fywencl()
set rs=nothing
set conn=nothing
end sub

'----------------------------------------------------------
Function GetOpInfo(Str,Flag)
	If inStr(Str,";")>0 then
		Dim FT
		FT = split(Str,";")
		If Ubound(FT) >= 2 then
			FT(2) = replace(FT(2),")","")
			FT(2) = replace(FT(2),"NT 5.2","2003")
			FT(2) = replace(FT(2),"NT 5.1","XP")
			FT(2) = replace(FT(2),"NT 5.0","2000")
			FT(2) = replace(FT(2),"9x","Me")
			FT(1) = Trim(FT(1))
			FT(2) = Trim(FT(2))
			If Flag = 1 then
				GetOpInfo = FT(1)
			Else
				GetOpInfo = FT(2)
			End If
		Else
			If Flag = 1 then
				GetOpInfo = "未知"
			Else
				GetOpInfo = "未知"
			End If
		End If
	Else
		If Flag = 1 then
			GetOpInfo = "未知"
		Else
			GetOpInfo = "未知"
		End If
	End If
End Function
'-----------------------------------------------------------
%>