📄 view.asp
字号:
<%
response.buffer=true
Response.Expires=0
if session("logined")<>"sf32*7$" then
response.redirect "dengji.htm"
else
%>
<%
keys=Request("keys")
if keys="DeleteID" then
delete_user_list
end if
%>
<%
sub delete_user_list()
'chk_admin_password
UserID=Request.Form("UserID")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = server.MapPath("websking.MDB")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
currentPage=Session("currentPage")
sql="DELETE * from feedbackinfo where ID="+UserID
rs.open sql,conn,3,2
response.write "<script language='javascript'>" & chr(13)
response.write "alert('删除成功;" & Chr(13)
response.write "window.document.location.href='view.asp?page=" & currentPage & "';"&Chr(13)
response.write "</script>" & Chr(13)
End sub
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>产品信息管理</title>
<style>
<!--
BODY {
td { font-size: 9pt }
a { color: #000000; text-decoration: none }
a:hover { text-decoration: none; color: #808080 }
.a { text-decoration: none; color: #FFFFFF }
.a:hover { text-decoration: none; color: #C0C0C0 }
.ab { text-decoration: none; color: #FFFFFF }
.ab:hover { text-decoration: none; color: #FFFF00 }
-->
</style>
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<%
const MaxPerPage=3
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
typename="messages"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<body>
<table align=center border=0 cellpadding=0 cellspacing=0 width=770 style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-top: 1 solid #000000">
<tbody>
<tr bgcolor=#333333>
<td height=1 width="50%"></td>
<td height=1 width="50%"></td>
</tr>
<tr bgcolor="#FFE1D2">
<td height=16 valign=middle width="50%">〖<a href="exit.asp">退出登陆状态</a>〗<font color=#000000 style="font:11pt"></font></td>
<td height=16 valign=middle width="50%" align=right bgcolor="#FFE1D2">请选择显示信息类型
<select name="select" onChange="MM_jumpMenu('parent',this,0)">
<option selected>请选择信息类型</option>
<option value="view.asp?lx=all">所有类型</option>
<option value="view.asp?lx=A1">眼镜架</option>
<option value="view.asp?lx=A2">眼镜盒</option>
<option value="view.asp?lx=A3">镜片</option>
<option value="view.asp?lx=A4">隐形眼镜</option>
<option value="view.asp?lx=A5">验光器材</option>
<option value="view.asp?lx=A6">太阳眼镜</option>
</select>
</td>
</tr>
<tr bgcolor=#333333>
<td height=1 width="50%"></td>
<td height=1 width="50%"></td>
</tr>
</tbody>
</table>
<table border="0" width="770" cellspacing="0" cellpadding="0" align="center" style="border-left: 1 solid #000000; border-right: 1 solid #000000">
<tr>
<td valign="middle" width="100%">
<% if Request("lx")<>"" then
session("lx")=request("lx")
end if
if Session("lx")="" then
Session("lx")="all"
end if
%>
<font color=blue style="font:11pt"><br>
产品信息类型：<% select case Session("lx")
case "A1"
Response.Write "眼镜架 "
case "A2"
Response.Write "眼镜盒 "
case "A3"
Response.Write "镜片 "
case "A4"
Response.Write "隐形眼镜 "
case "A5"
Response.Write "验光器材 "
case "A6"
Response.Write "太阳眼镜 "
case "all"
response.write "所有类型"
End select
%></font> <%
if Request.QueryString("searchname")<>null or Request.QueryString("searchname")<>"" then
searchname=Request.QueryString("searchname")
end if
'-----------------------------------------------------------------------------------------
'response.write lx
'response.write searchname
sql="SELECT * FROM feedbackinfo "
if searchname<>"" then
if searchname<>"reset" then
sql=sql & " where title LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
sql=sql & " or "
sql=sql & " name LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
sql=sql & " or "
sql=sql & " comment LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
else
searchname=null
end if
if Session("lx")="all" then
sql = sql & "order by ID DESC"
else
sql = sql & "where leixing=" & Session("lx") &" order by ID DESC"
end if
else
if Session("lx")="all" then
sql = sql & "order by ID DESC"
else
sql = sql & "where leixing='" & session("lx") &"' order by ID DESC"
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -