📄 view.asp
字号:
<%
response.buffer=true
Response.Expires=0
if session("logined")<>"sf32*7$" then
response.redirect "login.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"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta NAME="author" CONTENT="站长资源网">
<meta NAME="description" CONTENT="Resource.net 站长资源网---为您提供一切建站资源!">
<meta NAME="copyright" content="Copyright 2003 - 站长资源网 - OICQ：16754755">
<meta NAME="keywords" CONTENT="站长资源网,zzzcn,站长站,电子邮件,免费空间,论坛,免费资源,源码,源程序,IT新闻,域名注册,虚拟主机,技术,网站评测,品网,站长学院,付费广告,下载,免费服务,download,asp,php,cgi,mysql,sql,mssql,">
<!--<BASE onmouseover=window.status="站长资源网---为您提供一切建站资源!";return true>-->
<title><%=title_name%></title>
<LINK href="style.css" type=text/css rel=stylesheet>
<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%"><span style="font-size: 9pt">〖<a href="exit.asp">退出登陆状态</a>〗</span></td>
<td height=16 valign=middle width="50%" align=right bgcolor="#FFE1D2">
<span style="font-size: 9pt">请选择显示信息类型
<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"><%=title_1%></option>
<option value="view.asp?lx=A2"><%=title_2%></option>
<option value="view.asp?lx=A3"><%=title_3%></option>
<option value="view.asp?lx=A4"><%=title_4%></option>
<option value="view.asp?lx=A5"><%=title_5%></option>
<option value="view.asp?lx=A6"><%=title_6%></option>
<option value="view.asp?lx=A7"><%=title_7%></option>
</select> </span>
</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
%><span style="font-size: 9pt"> </span>
<font color=blue style="font-style:normal; font-variant:normal; font-weight:normal; font-size:9pt"><br>
产品信息类型：<% select case Session("lx")
case "A1"
Response.Write ""&title_1&" "
case "A2"
Response.Write ""&title_2&" "
case "A3"
Response.Write ""&title_3&" "
case "A4"
Response.Write ""&title_4&" "
case "A5"
Response.Write ""&title_5&" "
case "A6"
Response.Write ""&title_6&" "
case "A7"
Response.Write ""&title_7&" "
End select
%></font><span style="font-size: 9pt"> <%
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
end if
'Response.Write sql
'----------------------------------------------------------------------------------
%> <%
dim sql
dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<br><br><br><br><br><br><br><br><p align='center'> 目前还有信息任何产品信息 </p><br><br><br><br><br><br><br><br>"
else
totalPut=rs.recordcount
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -