www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > conn.asp
<% dim conn dim connstr db="#$%data/#data" '数据库文件位置 on error resume next connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") if err then err.clear else conn.open connstr end if function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts & chr(asc(mid(dcode,i,2))-i) next decrypt=texts end function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,2))+i) next encrypt = texts end function '----------------过滤HTML代码---------------------- function inHTML(fString) if fString="" or isnull(fString) then exit function end if 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(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "</P><P>") fString = Replace(fString, CHR(10), "<BR>") fString = Replace(fString," "," ") HTMLDecode1 = fString end function function outHTML(fString) if fString="" or isnull(fString) then exit function end if fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, """,CHR(34)) fString = Replace(fString, "'",CHR(39)) 'fString = Replace(fString, CHR(13), "") fString = Replace(fString, "</P><P>",CHR(10) & CHR(10)) fString = Replace(fString, "<BR>",CHR(10)) HTMLDecode2 = fString end function '--------------------------防止sql注入------------------------------ dim SafeRequestrequest Function SafeRequest(ParaName,ParaType) '--- 传入参数 --- 'ParaName:参数名称-字符型 'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符) Dim ParaValue ParaValue=Request(ParaName) If ParaType=1 then If not isNumeric(ParaValue) then Response.write "参数" & ParaName & "必须为数字型!" Response.end End if Else ParaValue=replace(ParaValue,"'","''") End if SafeRequest=ParaValue End function '--------------------------msgboxs------------------------------ sub msgboxs(msgstr) response.write "<script language='javascript'>history.go(-1);alert('"&msgstr&"');</script>" end sub '--------------------------截取字符串------------------------------ function strlen(str) dim p_len,xx p_len=0 strlen=0 if trim(str)<>"" then p_len=len(trim(str)) for xx=1 to p_len if asc(mid(str,xx,1))<0 then strlen=int(strlen) + 2 else strlen=int(strlen) + 1 end if next end if end function function strvalue(str,lennum) dim p_num dim i,x if strlen(str)<=lennum then strvalue=str else p_num=0 x=0 do while not p_num > lennum-2 x=x+1 if asc(mid(str,x,1))<0 then p_num=int(p_num) + 2 else p_num=int(p_num) + 1 end if strvalue=left(trim(str),x)&"…" loop end if end function '--------------------------关闭数据库链接------------------------------ function closedb() conn.close set conn=nothing end function %>