"&"返回问题列表!"
end if%>
"" then
dim wtids,rs,sql,conn
wtids=Request.Form("hd")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/ilsq.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from b05 where wtid='"&wtids&"'"
rs.open sql,conn,3,2
Response.Write ""
Response.Write ""
Response.Write "" & rs("wtbt") & ""
Response.Write ""
Response.Write ""
Response.Write "" & rs("wtnr") & ""
Response.Write ""
Response.Write ""
Response.Write "" & rs("yhm") & ""
Response.Write "" & rs("twsj") & ""
Response.Write ""
Response.Write ""
end if
%>
access数据表中字段有:
wtid 自动编号
wtbt 文本
wtnr文本
twsj 文本
yhm 文本
|