userlook.asp

来自「一个有用的东西 希望大家喜欢 谢谢大家对本站的支持」· ASP 代码 · 共 153 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="mfk_body.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
closeconn
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
closeconn
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)
closeconn
response.Redirect("error.asp?errormsg=<li>错误的预订人姓名、或电话号码！</li><br><li>您可能没有预订过，或是您的预订资料已被删除！</li>")
end if
session("user")=username
session("tel")=usertel
closers(rs)
closeconn
response.Redirect("?action=look&username="&angelic(username)&"")
end sub

sub userlook
if session("user")="" or session("tel")="" then
closeconn
response.Redirect("error.asp?errormsg=<li>非法的身份登录或您的登录信息已超时！</li><br><li>请从有效的链接进入！</li>")
end if
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
    <td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td>
	
<table width=753 border=0 align=center cellpadding=0 cellspacing=0>
  <tr>
<td width=685 height=24>　　您好：<%=session("user")%>　您在我社的预订记录已经在下面例出，你可以在我社未做处理前对它进行删除等操作：</td>
<td width=70><img src='images/mfk25.gif'> <a href='?action=logout'>安全退出</a></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)
%>
<table width=753 border=0 align=center cellpadding=0 cellspacing=1>
  <tr class="titletable">
    <td width=262 height=26 align=center>线路ID/名称</td>
    <td width=90 align=center>返程日期</td>
    <td width=130 align=center>预订时间</td>
    <td width=90 align=center>来游日期</td>
    <td width=40 align=center>人数</td>
    <td width=40 align=center>拼团</td>
    <td width=40 align=center>导游</td>
    <td width=30 align=center>状态</td>
    <td width=23 align=center>X</td>
  </tr>
  <%
while not rs.eof
mm=trim(rs("m_xianlu_name"))
%>
  <tr class="table1">
    <td height=22 class="table1"><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
%>
    </a></td>
    <td height=22 align=center class="table1"><%=rs("m_huanchengtime")%></td>
    <td height=22 align=center class="table1"><%=rs("m_yudingtime")%></td>
    <td height=22 align=center class="table1"><%=rs("m_laiyoutime")%></td>
    <td height=22 align=center class="table1"><%=rs("m_renshuo")%></td>
    <td height=22 align=center class="table1"><%=rs("m_pingchuan")%></td>
    <td height=22 align=center class="table1"><%=rs("m_daoyou")%></td>
    <td height=22 align=center class="table1">
      <%
if rs("m_show") then response.write("<a title=已经被处理>已</a>") else response.write("<a title=未处理，可做删除操作>未</a>") end if
%></td><td height=22 align=center class="table1">
<%
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
%></td>
  </tr>
  <%
rs.movenext
wend
closers(rs)
%>
</table>
    </td>
  </tr>
</table>

<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td width="741" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></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
closeconn
response.Redirect("error.asp?errormsg=<li>传递参数错误！</li><br><li>请确定你从有效链接进入！</li>")
end if
conn.execute("delete from giveme where id="&id)
closeconn
response.Redirect("ok.asp?msg=<li>成功删除您所选定的预订！</li><br><li>如还需查看自己的预订，直接点击我的预订即可！</li>")
end sub
pageend
%>