listgame.asp

为一网站销售代码

<!--#include file="conn.asp"-->
<%
dim rs,sql
sql="select GameType,CardType,Game from Type"
set rs=conn.execute(sql)
if not(rs.eof) or not(rs.bof) then
%>
document.write("<select name='gamelist'>")
<%
while not(rs.eof)
%>
document.write("<option value=<%=rs(0)&"|"&rs(1)&"|"&rs(2)%>><%=rs(1) & "卡-" & rs(0)%>")
<%
	rs.movenext
wend
rs.close()
set rs=nothing
%>
document.write("</select>")
<%
else
	Response.Write "没有数据"
end if
%>