<%
'数据库链接字段请不需要修改------------------------------------------------------------------------------
On Error Resume Next
If SystemDatabaseType = "SQL" Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CD_DataPath)
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write " 数据库连接错误，请检查/Data/Dj95_Conn.asp
点击这里 重新连接试试"
Response.End
End If
'数据库关闭--------------------------------------------------------------------------------------
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Sub
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip ="" Then userip = Request.ServerVariables("REMOTE_ADDR")
Function IsNum(Str)
IF Not IsNul(Str) Then:IsNum=IsNumeric(Str):Else:IsNum=False:End IF
End Function
Function IsNul(Str)
IF IsNull(Str) Or Str = "" Then:IsNul = True:Else :IsNul = False:End IF
End Function
'--------------------------------------------------------------------
Function LeftStr(sContent, iLength)
Dim I, J, C, S
J = 0
For I=1 To Len(sContent)
S = Mid(sContent, I, 1)
C = Asc(S)
If C<0 Then C = C + 65536
If C<255 Then J = J + 1
If C>255 Then J = J + 2
If JLen(LeftStr) Then LeftStr = LeftStr & ".."
End Function
'strLong是随机数字的位数，返回指定长度的数字串，不含字母
Function rndNum (strLong)
Dim temNum
Randomize
Do While Len(RndNum) < strLong
temNum=CStr(Chr((57-48)*rnd+48))
RndNum=RndNum&temNum
loop
End Function
Sub UserAlertA(CD_Msg,CD_Url,CD_Type)
If CD_Url="-1" Then
CD_Url="javascript:history.go(-1);"
End If
If CD_Type=1 Then
Response.Write ""
Else
Response.Write ""
Response.Write "
操作提示信息：
"
Response.Write ""
Response.Write "
"&CD_Msg&"
"
Response.Write "
返回上一页 | 返回首页
"
Response.Write "
操作提示信息：
"
Response.Write ""
Response.Write "
"&CD_Msg&"
"
Response.Write "
页面跳转中...
"
Response.Write "