📄 conn.asp
字号:
<%
'仅限个人研究用，请勿它用 午日工作室 保留所有版权
'午日工作室专注于中小学校园网站建设及学校教学、教务管理等有关系统平台的开发与定制，现已经成功投入使用的有：网上选课系统、ftp网络空间实时开通平台、研究性学习平台等。同时也继续接企事业单位网站建设制作、中小型软件定制、软件平台集成等业务具体可联系 午日工作室 qq 386805832 e-mail : wrgzs@126.com www.lhdnw.com/wrgzs
' 系统数据库路径
dbPath="xkxt.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
StrSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPath)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'StrSQL="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dbPath)
conn.Open StrSQL
Sub CloseDatabase() '关闭数据库对象
Conn.close
Set Conn = Nothing
'错误提示！
if Err then
Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('系统错误提示：\r\n-----------------------------\r\n"& Err.description &"！\r\n-----------------------------\r\n 请按规定操作！或通知管理员 " & session("SYDWEmail") & " \r\n\r\n << 自 动 返 回');"& Chr(13)
Response.write "window.document.location.href='javascript:history.back(-1);';"&Chr(13)
Response.write "</script>" & Chr(13)
Err.clear
'On Err goto 0
Response.end
end if
End Sub
Public Function MsgShow(str,flag,url)
'str：提示消息内容；flag：0：返回，标志1：跳转到URL，标志2：关闭窗口 标志3：用于显示 标志4： 刷新页面 标志5： 刷新父窗口
Response.write "<body bgcolor=#FFFFFF>"
Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('"
Response.write str
Response.Write "');"& Chr(13)
If Cint(flag)=1 then
Response.write "window.document.location.href='"
Response.Write url
Response.Write "';"&Chr(13)
Elseif Cint(flag)=2 then
Response.write "window.close();"&Chr(13)
Elseif Cint(flag)=0 then
Response.write "window.document.location.href='JavaScript:history.back();';"&Chr(13)
Elseif Cint(flag)=4 then
Response.write "location.reload();"&Chr(13)
Elseif Cint(flag)=5 then
Response.write "window.opener.document.location.reload();"&Chr(13)
Response.write "window.close();"&Chr(13)
End IF
Response.write "</script>" & Chr(13)
Response.write " </body>"
End Function
function htmlencode22(str)'翻过来界行解释
dim result
dim l
if isNULL(str) then
htmlencode22=""
exit function
end if
str = Replace(str, "<Br>",chr(13))
str = Replace(str, "<br>",chr(13))
str = Replace(str, " "," ")
str = Replace(str, "<BR>",chr(13))
str = Replace(str, "</P><P>", CHR(10) & CHR(10))
str = Replace(str, """,CHR(34))
str = Replace(str, "<",">")
str = Replace(str, """,CHR(34))
str = Replace(str, "<","<")
htmlencode22=str
end function
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(13), "<BR>")
'fString = Replace(fString, CHR(10), "<BR>")
fString=ChkBadWords(fString)
HTMLEncode = fString
end if
end function
function ChkBadWords(fString)
dim bwords,ii
if not(isnull(BadWords) or isnull(fString)) then
bwords = split(BadWords, "|")
for ii = 0 to ubound(bwords)
fString = Replace(fString, bwords(ii), string(len(bwords(ii)),"*"))
next
ChkBadWords = fString
end if
end function
Function NULLToString(PreString)
if isNULL(PreString) then
NULLToString = ""
else
NULLToString = Trim(Cstr(PreString))
End if
End Function
Function SafeRequest(ParaName,ParaType)'LGFUNCTION函数 防止并对一切ＳＱＬ注入攻击Say NO！
'--- 传入参数 ---
'ParaName:参数名称-字符型
'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)
Dim ParaValue,Temp_Client_IP,Temp_Reasons
ParaValue=Request(ParaName)
If ParaType=1 then
'if Trim(ParaValue) = "" or IsNULL(ParaValue) then
' ParaValue = 0
'end if
If Trim(ParaValue) <> "" and not IsNULL(ParaValue) and not isNumeric(ParaValue) then
'在PopTitle.asp中定义了 Public Str_BR = "<BR>" 如果是漂亮提示，则回车换行！
if Str_BR = "" or IsNull(Str_BR) then
Str_BR = Chr(13)
end if
'-------写入日志结束------------------------------------------------
Response.end
End if
Else
ParaValue=replace(ParaValue,"'","''")
ParaValue=replace(ParaValue," "," ")
ParaValue=replace(ParaValue,">",">")
ParaValue=replace(ParaValue,"<","<")
ParaValue=replace(ParaValue,chr(9)," ")
ParaValue=replace(ParaValue,chr(39),"'")
ParaValue=replace(ParaValue,chr(34),""")
End if
SafeRequest=ParaValue
End function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -