📄 admin_faq.asp
字号:
<!--#include file="../Comm/subconn.asp"-->
<%
dim cls
if session("admin")="" then
Response.Redirect("admin.asp")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "faq")
if cls <= 0 then
%>
<script language="javascript">
if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
location.href="admin.asp";
else
location.href="quit.asp";
</script>
<%
end if
end if
end if
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>技术支持</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
tr {color: #FFFFFF;}
--></style>
<script language="JavaScript" type="text/JavaScript">
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
</head>
<body bgcolor="#336699" background="../images/bggreen.gif" text=#ffffff topmargin="0">
<!--#include file="top.asp"-->
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="772" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td><td valign="top" width=647>
<table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
<tr>
<td width="100%">当前位置:<a href="admin.asp">网站管理中心</a>--技术支持管理</td>
</tr><tr><td>
<%action=request("action")%>
<%if action="" then%>
<table width="98%" border="1" align="center" cellpadding="3" bordercolor="#333333" style="border-collapse: collapse;border:dotted 1px">
<form name=Newslist action="admin_faq.asp" method=post>
<tr bgcolor="#003366" style="vertical-align: top">
<td width="6%">选择</td>
<td width="14%" nowrap> <label for="label"> 类别</label></td>
<td width="33%">问题题目</td>
<td width="39%" >问题答案</td>
<td width="8%">删除</td>
</tr>
<%
dim rs,msg_per_page
dim sql
msg_per_page = 10 '定义每页显示记录条数
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from faq order by Class desc"
rs.cursorlocation = 3 '使用客户端游标，可以使效率提高
rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec：总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page") 'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数
dim i
dim k
%>
<%
if rs.eof and rs.bof then
%>
<tr align='center' style='vertical-align: top'>
<td colspan='5'>暂时没有技术支持问题
<input type='submit' name='add' value=' 马上增加 ' onClick="location.href='admin_faq.asp?action=add_faq';"></td>
</tr>
<%
else
Do while not rs.eof and rowcount>0
%>
<tr style="vertical-align: top">
<td class=b> <input type='checkbox' value='<%=Cstr(rs("id"))%>' name=faqid>
</td>
<td><%=rs("Class")%></td>
<td><a href="admin_faq.asp?action=modify_faq&faqid=<%=rs("id")%>"><font color=yellow><%=rs("Query")%></font></a></td>
<td>
<%if len(rs("Answer"))>10 then response.write left(rs("Answer"),10)&"..." else response.write rs("Answer") end if%>
</td>
<td><a href="admin_faq.asp?action=del_faq&faqid=<%=rs("id")%>" onclick="{if(confirm('该操作不可恢复！\n\n确定删除选定的问题资料？')){return true;}return false;}">删除</a></td>
</tr>
<%
rowcount=rowcount-1
rs.movenext
if rs.eof then exit do
loop
end if
else
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<tr>
<td colspan=6 class=b> <input type='checkbox' name=chkall onclick='CheckAll(this.form)'>
全选
<input type="submit" name="action" value="删除" onclick="{if(confirm('该操作不可恢复！\n\n确定删除选定的问答？')){this.document.Prodlist.submit();return true;}return false;}">
<input type="button" name="action2" onClick="javascript:location.href='admin_faq.asp?action=add_faq';" value="加技术问答">
</td>
</tr>
</form>
</table>
<%call listPages()%>
<%end if
if action="del_faq" then
delid=replace(request("id")," ","")
call del_faq()
end if
if action="add_faq" then
call add_faq()
end if
if action="删除" then
delid=replace(request("id")," ","")
call delall_faq()
end if
if action="modify_faq" then
id=replace(request("id")," ","")
call modify_faq()
end if%>
</table><br><br></td></tr>
<tr>
<td height="10" align=center colspan="2">程序美工设计：九江市大地广告策划中心<%=sitever%></td>
</tr>
</table>
</body>
</html>
<%
sub listPages()
if n <= 1 then exit sub
%>
<p>>>
<%if currentpage = 1 then%>
<font color=darkgray>首页</font>
<%else%>
<font color=black face="arial"><a href="<%=request.ServerVariables("script_name")%>?page=1">
首页</font></a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>">
<font color=black face="arial" >前页</a></font>
<%end if%>
<%if currentpage = n then%>
<font color=darkgray face="arial" >后页</font>
<%else%>
<font color=black face="arial" ><a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下页</a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">末页</a></font>
<%end if%>
<font color=black face="arial" >
总:<%=currentpage%>/<%=n%>页 <%=msg_per_page%>文章/页 共:<%=totalrec%>文章</font></p>
<%end sub
sub del_faq()
if request("faqid")="" or isnull(request("faqid")) then
Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_faq.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_faq.asp""></BLOCKQUOTE>"
else
sql="delete from faq where id="&request("faqid")
conn.execute(sql)
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
conn.close
set conn=nothing
Response.write "<tr><td colspan=8><BLOCKQUOTE><br><br>资料删除成功！<A HREF='admin_faq.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_faq.asp""></BLOCKQUOTE></td></tr>"
end if
end if
end sub
sub delall_faq()
if request("faqid")="" or isnull(request("faqid")) then
Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_faq.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_faq.asp""></BLOCKQUOTE>"
else
conn.execute("delete from faq where Id in ("&request("faqid")&")")
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
Response.write "<tr><td colspan=8><BLOCKQUOTE><br><br>记录删除成功！<A HREF='admin_faq.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_faq.asp""></BLOCKQUOTE></td></tr>"
end if
end if
end sub
sub add_faq()
if request("send")="ok" then
sql="select * from faq"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("Query")=trim(request.form("Query"))
rs("Answer")=trim(request.form("Answer"))
rs("Class")=trim(request.form("Class"))
rs.update
rs.close
set rs=nothing
response.write "<div align=center>资料已经添加</div>"
response.write "<meta http-equiv=refresh content=""1;URL=admin_faq.asp"">"
else
%>
</p>
<form name="add" method="post" action="admin_faq.asp?action=add_faq">
<table width="99%" align="center" cellpadding="5" cellspacing="1" style="border-collapse: collapse" bordercolor="#222222" border="1">
<tr>
<td height="30" colspan="2" align="center"><strong>添加常见问答内容</strong></td>
</tr>
<tr style="vertical-align: top">
<td nowrap style="text-align: right"><label for="label5"> 问题：</label></td>
<td >
<input name="Query" type="text" id="label5" size="40" maxlength="100">
*</td>
</tr>
<tr style="vertical-align: top">
<td style="text-align: right"><label for="label6"> 类别：</label></td>
<td >
<input name="Class" type="text" id="label6" size="20" maxlength="20">
* </td>
</tr>
<tr style="vertical-align: top">
<td style="text-align: right">答案： </td>
<td >
<textarea name="Answer" cols="50" rows="7" id="Answer" ></textarea></td>
</tr>
<tr style="vertical-align: top">
<td width="26%" style="text-align: right"> </td>
<td width="74%"><input type="submit" name="SubmitName" value=" 添 加 ">
<input name="send" type="hidden" value="ok"></td>
</tr>
</table>
</form>
<%
end if
end sub
sub modify_faq()
if request.form("send")="" then
if request("faqid")="" then
response.write "<script language=javascript>alert('请指定问题编码，返回！');location.href='admin_faq.asp';</script>"
response.end
end if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from faq where id="&request("faqid")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('无此问题编码，返回！');location.href='admin_faq.asp';</script>"
response.end
else
%>
<form name="modify" method="post" action="admin_faq.asp?action=modify_faq">
<table width="93%" border="0" align="center" cellpadding="5" cellspacing="1" >
<tr >
<td colspan="2" align="center"><B>修改问题信息</B></td>
</tr>
<tr style="vertical-align: top">
<td nowrap style="text-align: right"><label for="label5"> 问题：</label></td>
<td >
<input name="Query" type="text" value="<%=rs("Query")%>" size="40" maxlength="100">
*</td>
</tr>
<tr style="vertical-align: top">
<td style="text-align: right"><label for="label6"> 类别：</label></td>
<td >
<input name="Class" type="text" id="label6" value="<%=rs("Class")%>" size="20" maxlength="20">
*</td>
</tr>
<tr style="vertical-align: top">
<td style="text-align: right">答案： </td>
<td >
<textarea name="Answer" cols="50" rows="7" id="Answer" ><%=rs("Answer")%></textarea></td>
</tr>
<tr style="vertical-align: top">
<td width="26%" style="text-align: right"> </td>
<td width="74%"><input type="submit" name="SubmitName3" value=" 修改信息 ">
<input name="send" type="hidden" value="ok">
<input name="faqid" type="hidden" value="<%=request("faqid")%>"></td>
</tr>
</table>
</form>
<%
end if
elseif request.form("send")="ok" then
set rs=Server.CreateObject("adodb.recordset")
sql="select * from faq where id="&request("faqid")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('问题编码错误，返回首页！');location.href='admin_faq.asp';</script>"
response.end
else
rs("Query")=trim(request.form("Query"))
rs("Answer")=trim(request.form("Answer"))
rs("Class")=trim(request.form("Class"))
rs.update
end if
rs.close
set rs=nothing
response.write "资料已经修改"
response.write "<meta http-equiv=refresh content=""1;URL=admin_faq.asp"">"
end if
end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -