📄 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("cztkdesignzxdg/cztkzxdgdesign.asa")
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>
<title>信息表单反馈管理</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=759 style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-top: 1 solid #000000">
<tbody>
<tr bgcolor=#333333>
<td height=1 width="384" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF"></td>
<td height=1 width="373"></td>
</tr>
<tr bgcolor="#FFE1D2">
<td height=16 width="384" bgcolor="#E3E3E3" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF"><span style="font-size: 9pt">〖<a href="exit.asp">退出登陆状态</a>〗</span></td>
<td height=16 width="373" align=right bgcolor="#D9D9D9">
</td>
</tr>
<tr bgcolor=#333333>
<td height=1 width="384" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF"></td>
<td height=1 width="373"></td>
</tr>
</tbody>
</table>
<table border="0" width="759" cellspacing="0" cellpadding="0" align="center" style="border-left: 1 solid #000000; border-right: 1 solid #000000">
<tr>
<td valign="middle" width="757">
<% if Request("lx")<>"" then
session("lx")=request("lx")
end if
if Session("lx")="" then
Session("lx")="all"
end if
%>
<%
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 + -