<%
function zhgl(mess)
dim i
dim filter
filter=Array("做爱","日他","日你","日妈","性交","射精","王八","狗日","日她","龟儿","我操","操你","操他","干你","干他","操她","干她")
for i=0 to UBound(filter)
mess=replace(mess,filter(i),"**(脏话)")
next
zhgl=mess
end function
function trstr(mess)
mess=zhgl(mess)
mess=replace(mess,"\","\\")
mess=replace(mess,chr(34),"\"&chr(34))
mess=replace(mess,"'","\'")
mess=replace(mess,chr(10),"")
mess=replace(mess,chr(13),"")
trstr=trim(mess)
end function
function trdb(mess)
mess=trim(zhgl(mess))
mess=server.HTMLEncode(mess)
mess=replace(mess,chr(34),""")
mess=replace(mess,"'","'")
mess=replace(mess," "," ")
mess=replace(mess,chr(10),"")
trdb=replace(mess,chr(13)," ")
end function
function trpass(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
texts=replace(texts,"'","")
trpass=replace(texts,chr(34),"")
end function
sub echoerr(e,t)%>
<%end sub
Set Conn=Server.CreateObject("ADODB.Connection")
sub dbinit
on error resume next
err.clear
Conn.Open "DBQ="+server.mappath("db/test.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
' Conn.Open "test"
if err then
err.clear
echoerr("打开数据库失败！ 可能因配置错误或驱动程序版本太低！")
response.end
end if
end sub
call dbinit
%>