<%

dim clasky_cn,clasky_connstr,clasky_db,rs,sql,i

'更改数据库名字
'clasky_db="txldata/godson.asp"
Set clasky_cn = Server.CreateObject("ADODB.Connection")
'clasky_connstr="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=111;Data Source=" & Server.MapPath(clasky_db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
clasky_cn.Open ConnStr


function Close_clasky_cn
clasky_cn.close
Set clasky_cn = Nothing
End Function


function clasky_string(a)
a=replace(a,"<","&lt;")
a=replace(a,">","&gt;")
a=replace(a,"'"," ")
a=replace(a,"""","&quot;")
clasky_string=a
end function

%>
