userlook.asp
来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 143 行
ASP
143 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户查看自己的预订情况</title>
<link href="css/css1.css" rel="stylesheet" type="text/css">
<script id=clientEventHandlersVBS language=vbscript>
<!--
Sub login11_onclick
if form1.username.value="" then
window.alert ("请填写用户姓名！")
form1.username.focus
else
if form1.userid.value="" then
window.alert ("请填写用户身份证号码！")
form1.userid.focus
else
if not IsNumeric(form1.userid.value) then
window.alert ("请认真填写身份证号码！"&chr(13)&"身份证号码必须是数字！")
form1.userid.focus
else
form1.submit
end if
end if
end if
End Sub
-->
</script>
</head>
<body topmargin="5" style="background-color: #999999">
<!--#include file="includefile/shoubu.asp" -->
<!--#include file="includefile/conn.asp" -->
<%
dim action,username
action=request("action")
username=request("username")
userid=request("userid")
if action="ok" then
sql="select * from giveme where m_name='"&username&"' and m_zhengjian='"&userid&"'"
rs.open sql,,1,2
if rs.recordcount=0 then
session("errormsg")="1、您没有在此预订旅游线路。 2、您填写的内容与您在预订时填写的不符 3、您的预订信息已经过期。 4、您的预订信息被管理员删除。"
Response.Redirect "error.asp"
end if
%>
<div align="center">
<center>
<table width="755" border="0" cellpadding="0" cellspacing="1" class="shizhou" style="border-style: solid">
<tr bgcolor="#EfEfEf">
<td width="64" height="20" align="center">线路ID</td>
<td width="164" align="center">预订时间</td>
<td width="180" align="center">预订人姓名</td>
<td width="189" align="center">预订处理情况</td>
<td width="80" align="center">更改预订内容</td>
<td width="78" align="center">删除此条预订</td>
</tr>
<%
while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td height="20" align="center"><a href ="listxianlu.asp?id=<%=rs("m_id")%>" target =_blank title="<%=rs("m_xianlu_name")%>"><%=rs("m_id")%></a></td>
<td align="center"><%=rs("m_yudingtime")%></td>
<td align="center"><%=rs("m_name")%></td>
<td align="center"><%if rs("m_show").value="0" then Response.Write ("已经处理，请等待我们与您联系") else Response.Write ("我们正在处理中，请稍等") end if%></td>
<td align="center"><%if rs("m_show").value="1" then%><a href ="userlook_edit.asp?id=<%=rs("id")%>">更改/查看</a><%else%>更改/<a href ="userlook_look.asp?id=<%=rs("id")%>" target =_blank>查看</a><%end if%></td>
<td align="center"><%if rs("m_show").value="1" then%><a href ="userlook_del.asp?id=<%=rs("id")%>" target =_blank >确定删除</a><%else%>确定删除<%end if%></td>
</tr>
<%
rs.movenext
wend
session("userlook")="mfkiqpl"
%>
</table>
</center>
</div>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0" class="shizhou">
<tr>
<td width="27" height="18">注：</td>
<td width="373" height="18">点击<font color="#FF0000">线路ID</font>查看此线路的详细说明。</td>
</tr>
<tr>
<td height="18"> </td>
<td height="18">预订处理情况为<font color ="#ff0000">已处理</font>的不能删除与更改，请在管理员与您联系后再商谈。</td>
</tr>
</table>
<%
else
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="shizhou">
<tr>
<td height="206">
<form name="form1" method="post" action="userlook.asp?action=ok">
<div align="center">
<center>
<table width="360" border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<td width="234" height="20" align="center" bgcolor="#CCCCCC">
<table width="360" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="title">以预订客户登录 </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" bgcolor="#EFEFEF"> 请输入您预订时所填写的姓名：</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#EFEFEF">
<input name="username" type="text" class="input" size="20"></td>
</tr>
<tr bgcolor="#EFEFEF">
<td height="25"> 请输入您预订时所填写的身份证号：</td>
</tr>
<tr bgcolor="#EFEFEF">
<td height="25" align="center">
<input name="userid" type="text" class="input" id="userid" size="20"></td>
</tr>
<tr bgcolor="#EFEFEF">
<td height="25" align="center"><input name="login11" type="button" class="button" id="login11" value="登录">
<input name="Submit2" type="reset" class="button" value="清除"></td>
</tr>
</table>
</center>
</div>
</form>
</td>
</tr>
</table>
<%
end if
%>
<!--#include file="includefile/weibu.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?