show.asp

移动商务平台

<%@ Language=VBScript%>
<!--#Include file="Conn.asp"-->
<?xml version="1.0"?>
<root>
<%
'Set Cnn=Server.CreateObject("ADODB.Connection") 
'Cnn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\m-trade\asp\store.mdb")
'Cnn.Open


Set objRS = Server.CreateObject("ADODB.Recordset") 
objRS.CursorType = adOpenstatic 
objRS.Open "stock", Conn, , , adCmdTable

While Not objRS.EOF 

%>
<out_brand><%response.write (objRS("brand"))%></out_brand>
<out_quan><%response.write (objRS("quantity"))%></out_quan>
<out_price><%response.write (objRS("price"))%></out_price>
<%
objRS.MoveNext 
Wend 
objRS.close
%>
</root>