untitled-1.asp

航空订票系统基于asp.net和sql2005包含数据库和图片

<!--#include file="../conn.asp"-->
<!--#include file="list.asp"-->

<%
dim a
a="中国,上海,北京,"
b=len(a)

dim n(3)
i=1
'response.write b
dim d,c
d=0
c=0
do while c < b
'for i=1 to 3
d=c

c=InStr(c+1,a,",")
response.write c
if c=0 then exit do
'response.write d+1&"&nbsp;"&c-1&"&nbsp;"
response.write mid(a,d+1,c-d-1)&"<br>"

'response.write mid(a,8,8)&"<br>"
'next
loop
'response.write d
'if c=0 then exit do
'else
'TempContent=TempContent
'end if
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM cityid"
rs.open sql,conn,1,1
c=request.Form("jplist")
response.write c
%>
<form action="#" method="post" enctype="application/x-www-form-urlencoded" target="_self">
<select name="jplist" class="input">
 <option value="顶级分类">顶级分类</option>
			<%guojicitylist02%></select>
			<input name="" type="submit" value="提交">
</form>
<% set rs02=conn.execute("select cityid from guojijp where cityid like '%"&rs01("cityid")&"%' and id="&rs("id"))
if not rs02.eof then
response.write "selected"
end if