不知道，這幾段代碼有沒有影響呢．

'##转换 ' 为 "
function convertsql(str)
convertsql=replace(str,"'","''")
end function

'##检测数据库操作否正确
function checkDb()
if conn.Errors.count > 0 Then
checkDb=1
else
checkDb=0
end if
end function

'##检测环境否正确
function checkVb()
if Err.number>0 Then
Err.clear()
checkVb=1
else
Err.clear()
checkVb=0
end if
end function

'##显示信息函数
sub out(str)
response.write str
end sub

'##对html进行加密
function htmlencode(str)
if not isnull(str) then
htmlencode=Server.UrlEnCode(str)
else
htmlencode=""
end if
end function