?? 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 + -