dgconn.asp

asp构建网站bbs.采用B/S架构

<%dim connDG,dgconnstr
 const dgDB="db\dgdata.mdb"
 dgconnstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dgDB) 
 Set connDG = Server.CreateObject("ADODB.Connection") 
 connDG.Open dgconnstr
 set dgconnstr=nothing
%>
<%function isInteger(para)
 on error resume next
 dim str
 dim l,i
 if isNUll(para) then 
 isInteger=false
 exit function
 end if
 str=cstr(para)
 if trim(str)="" then
 isInteger=false
 exit function
 end if
 l=len(str)
 for i=1 to l
 if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
 isInteger=false 
 exit function
 end if
 next
 isInteger=true
 if err.number<>0 then err.clear
end function
%>