conn.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<%
dim conn,connstr,startime,sundxDB,rs,UserAgent
startime=timer()
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
	Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览网站！"
	Response.End
End If

Function SafeRequest(ParaName,ParaType)
       Dim ParaValue
       ParaValue=Request(ParaName)
       If ParaType=1 then
              If not isNumeric(ParaValue) then
                     Response.write "<center>参数" & ParaName & "必须为数字型，请正确操作！</center>"
                     Response.end
              End if
       Else
              ParaValue=replace(ParaValue,"'","''")
       End if
       SafeRequest=ParaValue
End function


Function FormatSQL(strChar)
if strChar="" then
FormatSQL=""
else
FormatSQL=replace(replace(replace(replace(replace(replace(replace(replace(strChar,"'","’"),"*","×"),"?","？"),"(","（"),")","）"),"<","〈"),".","。"),";","；")
end if
End Function 

sundxDB="..\data\#shop.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&sundxDB&"")
On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查Conn.asp中的数据库指向。"'
		Response.End
	End If
	
Dim strTitle,LngDiscount,strUserName,LngUserID,Lnggrdid,LngDeposit,rsVip,strUserEmail
LngDiscount = 0
LngUserID = 0
LngDeposit = 0
strUserName = "非注册用户"
LngUserID=0
if Request.Cookies("sundxshop")("username")<>"" then 
set rsVip=server.CreateObject("adodb.recordset")
rsVip.open "select dv_user.grdid,dv_user.UserID,dv_user.Score,dv_user.UserEmail,dv_user.Deposit,dv_user.UserName,sdx_usergrade.grdname,sdx_usergrade.grddiscount from dv_user Inner Join sdx_usergrade On dv_user.grdid = sdx_usergrade.grdid where username='"&request.Cookies("sundxshop")("username")&"' ",conn,1,1
strTitle = rsVip("grdname")
LngDiscount = rsVip("grddiscount")
Lnggrdid = Clng(rsVip("grdid"))
strUserName = rsVip("UserName")
LngUserID = Clng(rsVip("UserID"))
LngScore = Clng(rsVip("Score"))
LngDeposit = rsVip("Deposit")
strUserEmail = rsVip("UserEmail")
rsVip.close
set rsVip=nothing 
End If
%>