📄 advicemanage.asp
字号:
<!--#include file="CheckAdminLogined.asp"-->
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<% if request("cur_action")="delete" then conn.execute("delete from tAdvice where ID="&request("EditID"))%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td width="894" height="10"></td>
</tr>
<tr>
<td>我的位置：后台管理系统._综合功能管理._在线投诉管理</td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><strong>在线投诉管理</strong>
</td>
<td align="right" background="images/title2.gif"> </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top">
<%if request("cur_action")="read" then
conn.execute("update tAdvice set ReadFlag=1 where ID="&request("EditID"))
set rs_Read=conn.execute("select * from tAdvice where ID="&request("EditID"))
if rs_Read.eof and rs_Read.bof then
response.write "<script>alert('读取数据库时出错，请与管理员联系');history.back();</script>"
response.end
end if
%><br>
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
<tr>
<td width="17%" height="21" align="center" bgcolor="f7f7f7">ID</td>
<td width="83%" bgcolor="#FFFFFF"> <%=rs_Read("ID")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">公司名称</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Company")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">投诉人</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("TrueName")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">联系地址</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Address")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">电话号码</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Tel")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">移动电话</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("MobilePhone")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">电子邮件</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Email")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">产品型号</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Model")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">规格</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Standard")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">数量</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("Amount")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">投诉内容</td>
<td bgcolor="#FFFFFF"> <%=chtml(cstr(rs_Read("Content")))%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">购买地</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("BuyAddr")%> </td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">购买时间</td>
<td bgcolor="#FFFFFF"><%=rs_Read("BuyDate")%></td>
</tr>
<tr>
<td height="21" align="center" bgcolor="f7f7f7">添加日期</td>
<td bgcolor="#FFFFFF"> <%=rs_Read("AddTime")%></td>
</tr>
<tr>
<td height="39" colspan="2" align="center" bgcolor="#FFFFFF"><input type="button" name="Submit2" value="返回" onclick="javascript:history.back();">
<input type="button" name="Submit22" value="删除" onclick="{if(confirm('确定删除该条纪录吗?')){location.replace('?cur_action=delete&EditID=<%=rs_Read("ID")%>&PageNo=<%=request("PageNo")%>')}return false;}"></td>
</tr>
</table>
<br>
<%end if
'----------------------------
PERPAGE =15
PageNo=request("PageNo")
set rs=server.createobject("ADODB.recordset")
sql="select * from tAdvice order by AddTime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂时没有数据!"
else
rs.pagesize = PERPAGE
if isempty(PageNo) or cstr(PageNo)<"1" then PageNo = 1
CurPage=PageNo
if int(PageNo)>=int(rs.pagecount) then CurPage=cint(rs.pagecount)
rs.absolutepage = CurPage
%>
<br> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#FFFFFF">
<td width="6%" height="22"><strong>ID</strong></td>
<td width="21%"><strong>公司名称</strong></td>
<td width="14%"><strong>联系人</strong></td>
<td width="11%" height="22" bgcolor="#FFFFFF"><strong>联系电话</strong></td>
<td width="28%" bgcolor="#FFFFFF"><strong>地址</strong></td>
<td width="7%"><strong>状态</strong></td>
<td width="13%" height="22"><strong>功能操作</strong></td>
</tr>
<% for i = 1 to rs.pagesize %>
<tr align="center" onMouseOver="this.style.backgroundColor='#e7e7e7';" onMouseOut="this.style.backgroundColor='#ffffff'" bgcolor="#FFFFFF">
<td height="22"><%=rs("ID")%></td>
<td height="22"><%=rs("Company")%></td>
<td height="22"><%=rs("TrueName")%></td>
<td height="22"><%=rs("Tel")%></td>
<td height="22"><%=rs("Address")%></td>
<td height="22"> <% if rs("ReadFlag")=0 then response.write "<font color='ff0000'>未读</font>" else response.write "已阅"%> </td>
<td height="22"> <a href='?cur_action=read&EditID=<%=rs("ID")%>&PageNo=<%=PageNo%>'>详细信息</a>|<a href="?cur_action=delete&EditID=<%=rs("ID")%>&PageNo=<%=PageNo%>" onclick="{if(confirm('确定删除该条纪录吗?')){return true;}return false;}">删除</a></td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table></td>
</tr>
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="33%"> 页次：<b><%=CurPage%></b>/<b><%=rs.pagecount %></b>页 共<b><%=rs.recordcount %></b>条记录</td>
<td width="67%" align="right">
<%
if CurPage = 1 then
response.write " 首页 | 上一页 | "
else
response.write "<a href='?PageNo=1&T_key="&request("T_key")&"'><b> 首页 </b></a> | <a href='?PageNo="&CurPage-1&"&T_key="&request("T_key")&"'><b>上一页</b></a>| "
end if
if CurPage = rs.pagecount then
response.write "后一页 | 尾页 "
else
response.write "<a href='?PageNo="&CurPage+1&"&T_key="&request("T_key")&"'><b>后一页</b> </a>| <a href='?PageNo="&rs.pagecount&"&T_key="&request("T_key")&"'><b>尾页</b> </a>"
end if
%>
跳转到：<select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
<% for i=1 to rs.pagecount
if CurPage=i then
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"' selected>第"&i&"页"
else
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"'>第"&i&"页"
end if
next
%>
</select></td>
</tr>
</table>
<%end if%>
<br> <br> </td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -