www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/Conn.asp

    <%
dim conn
dim connstr
db="../#$%data/#data.mdb" '数据库文件位置
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, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    fString = Replace(fString,"&nbsp;"," ")
    HTMLDecode1 = fString
end function

function outHTML(fString)
if fString="" or isnull(fString) then
exit function
 end if
    fString = replace(fString, "&gt;", ">")
    fString = replace(fString, "&lt;", "<")
    fString = Replace(fString, "&quot;",CHR(34))
    fString = Replace(fString, "&#39;",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
%>