<%
dim conn
dim connstr
dim db
db="data/dafeng.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
%>
北京大风泰然专营摩托罗拉对讲机|建伍对讲机|瑞特尔对讲机-010－84834210
<%
id1 = request("id")
if IsNull(id1) then
temp = 0
else
id1 = replace(id1,"=","‘")
id1 = replace(id1,"'","’")
end if
%>
