read.asp

这是一个flash利用asp连接数据库的例子

<% 
u_name=trim(Request.Form("Name"))
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("Msg.mdb")
sql="select * from data where Name='" & u_name &"'"
rs.Open sql, conn
if Not rs.Eof then
Response.Write "&Name="& rs("Name")&"&Company="& rs("Company")&"&Relation="& rs("Relation")&"&Url="& rs("Url")&"&Msg="& rs("Msg")&""
Response.Write "&temp=ok"
else
Response.Write "&temp=failt"
end if
rs.close
conn.close
Set rs=Nothing
Set conn=Nothing

%>