www.gusucode.com > 盐城分类信息网asp源码程序 > admin/conn.asp
<% '检测是否有效的数字----------------- Function IsInteger(Para) IsInteger=False If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then IsInteger=True End If End Function '检查无效字符---------------------- Function CheckStr(byVal ChkStr) Dim Str:Str=ChkStr Str=Trim(Str) If IsNull(Str) Then CheckStr = "" Exit Function End If Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="(\r\n){3,}" Str=re.Replace(Str,"$1$1$1") Set re=Nothing Str = Replace(Str,"'","''") Str = Replace(Str, "!!!", "!") Str = Replace(Str, "★★★", "★") CheckStr=Str End Function '转换HTML代码----------------------- Function HTMLDecode(reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = Replace(Str, "&", "&") Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, " ", CHR(32)) Str = Replace(Str, " ", CHR(9)) Str = Replace(Str, "    ", CHR(9)) Str = Replace(Str, """, CHR(34)) Str = Replace(Str, "'", CHR(39)) Str = Replace(Str, "", CHR(13)) Str = Replace(Str, "<br>", CHR(10)) HTMLDecode = Str End If End Function '---------------------------------- '数据库连接文件 '数据库连接文件 dim conn,connstr,db,startime startime=timer() db="../REWEWRTERT/mdb.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) conn.Open connstr sub closedb() conn.close set conn=nothing end sub %>