userlook.asp

旅游路线管理 比较方便的旅游路线管理

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
pagestart
dim action
action=trim(request("action"))
select case action
case "login"
login
case "logout"
logout
case "look"
userlook
case "del"
del
case else
response.Redirect("error.asp?errormsg=<li>错误的传递参数！</li><br><li>请确定你有有效链接进入！</li>")
end select

sub login
dim username,usertel
username=replace(trim(request("username")),"'","")
usertel=replace(trim(request("usertel")),"'","")
if not isnumeric(usertel) then
response.Redirect("error.asp?errormsg=<li>预订人电话错误！</li><br><li>正确的电话应全部为数字！</li>")
end if
set rs=conn.execute("select m_name,m_phone from giveme where m_name='"&username&"' and m_phone='"&usertel&"'")
if rs.eof and rs.bof then
closers(rs)
response.Redirect("error.asp?errormsg=<li>错误的预订人姓名、或电话号码！</li><br><li>您可能没有预订过，或是您的预订资料已被删除！</li>")
end if
session("user")=username
session("tel")=usertel
response.Redirect("?action=look&username="&angelic(username)&"")
end sub

sub userlook
if session("user")="" or session("tel")="" then
response.Redirect("error.asp?errormsg=<li>非法的身份登录或您的登录信息已超时！</li><br><li>请从有效的链接进入！</li>")
end if
response.Write("<script>")
response.Write("function scolor(dd){dd.style.backgroundColor='#ffffff';}")
response.Write("function rcolor(tt){tt.style.backgroundColor='';}")
response.Write("</script>")
response.write("<table width=755 border=0 align=center cellpadding=0 cellspacing=0><tr>")
response.write("<td width=685 height=22 bgcolor="&c3&">　　您好："&session("user")&"　您在我社的预订记录已经在下面例出，你可以在我社未做处理前对它进行删除等操作：</td>")
response.Write("<td width=70 bgcolor="&c3&"><img src='images/mfk25.gif'> <a href='?action=logout'>安全退出</a></td></tr></table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
sql="select m_id,id,m_xianlu_name,m_daoyou,m_renshuo,m_pingchuan,m_yudingtime,m_laiyoutime,m_huanchengtime,m_show from giveme where m_name='"&session("user")&"' and m_phone='"&session("tel")&"' order by m_show desc"
set rs=conn.execute(sql)
response.Write("<table width=755 border=0 align=center cellpadding=0 cellspacing=1 bgcolor="&c5&">")
response.Write("<tr>")
response.Write("<td width=262 height=26 align=center bgcolor="&c3&">线路ID/名称</td>")
response.Write("<td width=90 align=center bgcolor="&c3&">返程日期</td>")
response.Write("<td width=130 align=center bgcolor="&c3&">预订时间</td>")
response.Write("<td width=90 align=center bgcolor="&c3&">来游日期</td>")
response.Write("<td width=40 align=center bgcolor="&c3&">人数</td>")
response.Write("<td width=40 align=center bgcolor="&c3&">拼团</td>")
response.Write("<td width=40 align=center bgcolor="&c3&">导游</td>")
response.Write("<td width=30 align=center bgcolor="&c3&">状态</td>")
response.Write("<td width=23 align=center bgcolor="&c3&">X</td></tr>")
while not rs.eof
mm=trim(rs("m_xianlu_name"))
response.Write("<tr bgcolor="&c4&" onmouseover='scolor(this);' onmouseout='rcolor(this);'>")
response.Write("<td height=22><img src=images/mfk21.gif width=20 height=10>"&rs("m_id")&"<img src=images/mfk5.gif><a href=listxianlu.asp?id="&rs("m_id")&" title='"&mm&"'>")
	 if len(mm)<16 then 
	response.write(mm)
	else
	response.write (left(mm,16))
	response.write("..")
	end if
response.write("</a></td>")
response.Write("<td height=22 align=center bgcolor="&c4&">"&rs("m_huanchengtime")&"</td>")
response.Write("<td height=22 align=center bgcolor="&c4&">"&rs("m_yudingtime")&"</td>")
response.Write("<td height=22 align=center>"&rs("m_laiyoutime")&"</td>")
response.write("<td height=22 align=center>"&rs("m_renshuo")&"</td>")
response.write("<td height=22 align=center>"&rs("m_pingchuan")&"</td>")
response.write("<td height=22 align=center>"&rs("m_daoyou")&"</td>")
response.write("<td height=22 align=center>")
if rs("m_show") then response.write("<a title=已经被处理>已</a>") else response.write("<a title=未处理，可做删除操作>未</a>") end if
response.write("</td><td height=22 align=center>")
if rs("m_show") then
response.write("<img src=images/mfk27.gif alt=无法删除>")
else
response.write("<a href=?action=del&id="&rs("id")&"><img src=images/mfk26.gif alt=删除此次预订  border=0></a>")
end if
response.write("</td></tr>")
rs.movenext
wend
response.write("</table>")
response.write("<table width='755' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='5'></td></tr></table>")
end sub

sub logout
session.Contents.remove "user"
session.Contents.remove "tel"
response.Redirect("ok.asp?msg=<li>成功安全退出！</li><br><li>感谢您对我社的支持！</li>")
end sub

sub del
dim id
id=trim(request("id"))
if not isNumeric(id) then
response.Redirect("error.asp?errormsg=<li>传递参数错误！</li><br><li>请确定你从有效链接进入！</li>")
end if
conn.execute("delete from giveme where id="&id)
response.Redirect("ok.asp?msg=<li>成功删除您所选定的预订！</li><br><li>如还需查看自己的预订，直接点击我的预订即可！</li>")
end sub
pageend
%>