📄 view_right.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if (session("user")="admin" and session("pwd")="admin") then
%>
<!-- 获得id 值 -->
<%
on error resume next
id = request("id")
if id = 0 then
%>
<!--
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!---
a:link { color: #306898; font-family: Arial; text-decoration: underline }
a:visited { color: #306898; font-family: Arial; text-decoration: underline }
a:active { color: red; font-family: Arial; text-decoration: none }
a:hover { color: 306898; text-decoration: none }
body { color: #6e6e6e; font-size: 9pt; line-height: 12pt; font-family: Arial }
th { font-size: 9pt; line-height: 12pt }
td { font-size: 9pt; line-height: 12pt }
.line { line-height: 10pt }
.il { line-height: 12pt }
.form { font-size: 9pt }
.btn { font-size: 9pt; height: 21; border-style: ridge; border-width: 1 }
.text { font-family: Arial; font-size: 9pt; border: 1 solid #707070 }
cs { font-family: Arial; font-size: 9pt; border: 1 solid #707070 }
body { scrollbar-face-color: #D8D4C8; scrollbar-highlight-color: #D8D4C8;
scrollbar-shadow-color: #D8D4C8; scrollbar-3dlight-color:
#ffffff; scrollbar-arrow-color: blcak; scrollbar-track-color:
#E9EDEF; scrollbar-darkshadow-color: #888484 }
---></style>
</head>
<body>
<div align="left">
<p> </p>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="left">
<p>admin您好:</p>
<p> 这里是在线定单管理系统，下面是使用说明</p>
</div>
<ul>
<li> 您可以通过左侧的<font color="#FF0000">定单列表</font>，选取客户的定单信息<br></li>
<li>注意<font color="#FF0000">删除的信息不可恢复</font>，请您仔细考虑后再进行删除<br></li>
<li>'****************************************************************<br><br>
'*【注意事项】<br><br>
'* 本程序所有数据均采用数据库存储,请勿直接修改数据库内容.<br><br>
'* 除非你很了解 html、ASP、javascrpit,否则程序文件请不要乱改,<br><br>
'* 放置本程序的主机要注意安全,一些重要的目录请管理员设置好权限.<br><br>
'* 进入管理执行操作完毕后,注意要关闭全部的浏览器一次,以绝后患.<br><br>
'****************************************************************</li>
</ul>
</td>
</tr>
</table>
<p> </p>
</div>
<p> </p>
</body>
</html>
<% else %>
<!-- 显示所选数据的值 -->
<html>
<head>
<title>定单信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!---a:link { color: #306898; font-family: Arial; text-decoration: underline }
a:visited { color: #306898; font-family: Arial; text-decoration: underline }
a:active { color: red; font-family: Arial; text-decoration: none }
a:hover { color: 306898; text-decoration: none }
body { color: #6e6e6e; font-size: 9pt; line-height: 12pt; font-family: Arial }
th { font-size: 9pt; line-height: 12pt }
td { font-size: 9pt; line-height: 12pt }
a.1:link { font-family: Arial; text-decoration: none; color: silver }
a.1:visited { font-family: Arial; text-decoration: none; color: silver }
a.1:hover { font-family: Arial; text-decoration: none; color: white }
a.2:link { font-family: Arial; text-decoration: none; color: #6e6e6e }
a.2:visited { font-family: Arial; text-decoration: none; color: #6e6e6e }
a.2:hover { font-family: Arial; text-decoration: none; color: silver }
a.3:link { font-family: Arial; text-decoration: none; color: white }
a.3:visited { font-family: Arial; text-decoration: none; color: white }
a.3:hover { font-family: Arial; text-decoration: none; color: #d0ccd0 }
.line { line-height: 10pt }
.il { line-height: 12pt }
.form { font-size: 9pt }
.btn { font-size: 9pt; height: 21; border-style: ridge; border-width: 1 }
.text { font-family: Arial; font-size: 9pt; border: 1 solid #707070 }
body { scrollbar-face-color: #D8D4C8; scrollbar-highlight-color: #D8D4C8;
scrollbar-shadow-color: #D8D4C8; scrollbar-3dlight-color:
#ffffff; scrollbar-arrow-color: blcak; scrollbar-track-color:
#E9EDEF; scrollbar-darkshadow-color: #888484 }
---></style>
</head>
<body>
<!-- 打开数据库 -->
<%
on error resume next
connstr = "DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM data WHERE id = "&id&""
Conn.Open connstr
rs.Open sql,conn,1,1
%>
<div align="left" class="cs"> <br>
<font>客户定单信息:<br>
<br>
第<font color="#FF0000"><% = rs("ID") %></font>条:<font color="#FF0000"><% = rs("title") %>
</font><br>
<table width="500" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="75" height="18" class="cs">定单标题：</td>
<td width="425" class="cs"> <% = rs("title") %></td>
</tr>
<tr>
<td width="75" height="18" class="cs">联 系 人：</td>
<td width="425" class="cs"><% = rs("name") %></td>
</tr>
<tr>
<td width="75" height="18" class="cs">联系电话：</td>
<td width="425" class="cs"><% =rs("tel") %></td>
</tr>
<tr>
<td width="75" height="18" class="cs">线路行程：</td>
<td width="425" class="cs"><% = rs("address") %></td>
</tr>
<tr>
<td width="75" height="18" class="cs">消费意向：</td>
<td width="425" class="cs"><% = rs("price") %></td>
</tr>
<tr>
<td width="75" height="18" class="cs">简短留言：</td>
<td width="425" class="cs"><% = rs("content") %></td>
</tr>
<tr>
<td width="75" height="18" class="cs">提交时间：</td>
<td width="425" class="cs"><% =rs("date") %></td>
</tr>
<tr>
<td width="75" height="18" class="cs">客户IP：</td>
<td width="425" class="cs"><% =rs("ip") %></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<!-- 计算总信息数 -->
<% set rsall = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * FROM data"
rsall.Open sql,conn,1,1
allorder= rsall.recordcount
rsall.close
%>
<td width="15%" height="20"><div align="right">
<p align="right" class="cs">共<font color="#FF0000">
<% =allorder %>
</font>条 </p>
</div></td>
<td width="22%"><div align="right">
<p class="cs">管理： <a href="del.asp?id=<% =rs("id") %>">删除</a></p>
</div></td>
<% rs.close %>
<!-- 翻页设置 -->
<!-- 前翻 -->
<% set rspre = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM data WHERE id >= "&id&""
rspre.Open sql,conn,1,1
on error resume next
rspre.movenext
pre=rspre("id")
if pre="" then
pre=id
end if
rspre.close
%>
<!-- 后翻 -->
<%
set rsnext = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM data WHERE id <= "&id&" order by ID DESC"
rsnext.Open sql,conn,1,1
on error resume next
rsnext.movenext
nex=rsnext("id")
if nex="" then
nex=id
end if
rsnext.close
%>
<td width="63%" class="cs"><div align="right"><a href="view_right.asp?id=<% =pre %>" target="mainFrame">前一条</a>
<a href="view_right.asp?id=<% =nex %>" target="mainFrame">后一条</a></div></td>
</tr>
</table>
<br>
</div>
</body>
</html>
<%
conn.close
%>
<% end if %>
<% else
response.write"对不起您没有权限登录"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -