<%
'on error resume next
dim connStr,conn,db
db="data/hb2003db01.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
function checkid(id)
If Isnull(id) Then
checkid =0
Exit Function
end if
if isnumeric(id) then
checkid=cint(id)
else
checkid=0
end if
end function
function checkstr(str)
If Isnull(Str) Then
checkstr = ""
Exit Function
End If
str=server.HTMLEncode(trim(str))
checkstr = Replace(str,"'","''")
checkstr = Replace(str,"--","''")
'if reallen(checkstr)>100 then checkstr=cutstr(checkstr,100)
end function
%>
供应商链接
