userorderlist.asp

漂亮的欧美旅游模板

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="db_conn.asp"-->
<!--#include file="my_libs/my_request.asp"-->
<!--#include file="my_libs/my_lib.asp"-->
<!--#include file="my_libs/comm.asp"-->
<%
call head("我的预订_"&arrlist_s(0))
call top()
dim username,phone,action
username=my_request("username",0)
phone=my_request("phone",0)

if username="" or phone="" then
wnourl("请填写姓名和电话号码")
end if
action=my_request("action",0)

select case action
case "login"
call login()
case "listuser"
call listuser()
case else
response.write "参数错误"
end select



sub login()
dim sql_ch,rs_ch
sql_ch="select zm_username,zm_phone from ssort_order where zm_username='"&username&"' and zm_phone='"&phone&"'"
set rs_ch=conn.execute (sql_ch)
if rs_ch.eof and rs_ch.bof then
wnourl("没有此预订，或资料已经被删除。")
else
session("user")=username
session("tel")=phone
response.redirect "?action=listuser&username="&username&"&phone="&phone
end if
end sub

sub listuser
if session("user")="" or session("tel")="" then
wnourl("非法的身份登录或您的登录信息已超时!")
end if

response.write ("<div align=center>")
response.write ("<table border=0 width=760 cellpadding=4 class=istable>")
response.write ("<tr class=smallblack>")
response.write ("<td height=28>当前位置: <a href=../>网站首页</a> &gt;&gt;")
response.write ("<a href=index.asp>线路预定</a> &gt;&gt; 我的预定</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")
response.write ("<div align=center>")
response.write ("<table border=0 width=760 cellpadding=4 class=istable>")
response.write ("<tr>")
response.write ("<td class=smallblack><font color=#ff0000>您好，"&session("user")&"&nbsp;&nbsp;</font><font color=#808080>您在我社的预订记录已经在下面例出，你可以在我社未做处理前对它进行删除等操作。</font></td>")
response.write ("<td align=left><a href=userout.asp class=small>退出系统</a></td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")


response.write ("<div align=center>")
response.write ("<table border=0 width=760 cellpadding=4 class=istable bordercolor=#808080>")
response.write ("<tr>")
response.write ("<td class=toptd height=28>&nbsp;<img border=0 src=images/ArrorWhite.gif width=11 height=9>")
response.write ("我 的 预 定 清 单:</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")
response.write ("<div align=center>")
response.write ("<table border=1 width=760 cellpadding=4 class=istable bordercolor=#D7D7D7>")
response.write ("<tr>")
response.write ("<td>")
response.write ("<table border=0 width=100% class=smallblack cellspacing=1>")
response.write ("<tr>")
response.write ("<td align=left width=16>ID</td>")
response.write ("<td align=left>线路名称</td>")
response.write ("<td align=left width=71>返程日期</td>")
response.write ("<td align=left width=121>预订时间</td>")
response.write ("<td align=left width=68>来游日期</td>")
response.write ("<td align=left width=34>人数</td>")
response.write ("<td align=left width=35>拼团</td>")
response.write ("<td align=left width=35>导游</td>")
response.write ("<td align=left width=36>状态</td>")
response.write ("<td align=left width=32>删除</td>")
response.write ("</tr>")

				dim sql_or,rs_or,arrorder(9),u,e,sql_l,rs_l,siname
				sql_or="select zm_username,zm_lvnums,zm_dy,zm_holp,zm_ydtime,zm_cometime,zm_backtime,zm_iscl,zm_lineid,id from ssort_order where zm_username='"&username&"' and zm_phone='"&phone&"'"
				set rs_or=conn.execute (sql_or)
				if rs_or.eof and rs_or.bof then
				response.write "<td colspan=10>错误的预订人姓名、或电话号码！您可能没有预订过，或是您的预订资料已被删除！</td>"
				else
				e=1
				do while not rs_or.eof
				for u=0 to 9
				arrorder(u)=rs_or(u)
				next
				
				sql_l="select zm_linename from ssort_lines where id="&cint(arrorder(8))
                set rs_l=conn.execute (sql_l)
                siname=rs_l(0)
                rs_l.close
                set rs_l=nothing

response.write ("<tr>")
response.write ("<td align=left width=16>"&e&"</td>")
response.write ("<td align=left><a href=lineDetail.asp?id="&arrorder(8)&" target=_blank class=small>"&siname&"</a></td>")
response.write ("<td align=left width=71>"&arrorder(6)&"</td>")
response.write ("<td align=left width=121>"&arrorder(4)&"</td>")
response.write ("<td align=left width=68>"&arrorder(5)&"</td>")
response.write ("<td align=left width=34>"&arrorder(1)&"</td>")
response.write ("<td align=left width=35>"&arrorder(3)&"</td>")
response.write ("<td align=left width=35>"&arrorder(2)&"</td>")
response.write ("<td align=left width=36>")

					if arrorder(7)=0 then
					response.write "未"
					else
					response.write "审核"
					end if
response.write ("</td>")
response.write ("<td align=left width=32>")
if arrorder(7)=0 then
response.write ("<a href=deluserline.asp?id="&arrorder(9)&"><img border=0 src=images/delorder.gif width=14 height=15></a>")
else
response.write ("<img border=0 src=images/delorder.gif width=14 height=15>")
end if
response.write ("</td>")
response.write ("</tr>")

				rs_or.movenext
				e=e+1
				loop
				rs_or.close
				set rs_or=nothing
				end if

response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")
response.write ("<table border=0 width=100% cellpadding=0 class=istable height=8>")
response.write ("<tr>")
response.write ("<td></td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("<div align=center>")
response.write ("</div>")
end sub
call htmlend()%>