'
Dpath ="www.jquerycn.cn/dbaseMateyDBWeb_^%$#@.mdb"
Set Conn=Server.CreateObject("Adodb.connection")
if request.QueryString("action")="list" then
Set Rs =Server.CreateObject("Adodb.Recordset")
Conn.connectionstring="Provider=Microsoft.Jet.oledb.4.0;Data source="&Server.MapPath(Dpath)
Conn.open
Dim sql
sql ="select * from test id= "&request.QueryString("id")
rs.open sql,conn,1,3
end if
%>
">
用户名
">
密码
地址 | 操作 |
www.jquerycn.cn | 查看 |
本文章原创于www.jquerycn.cn转载注明出处