📄 sys_upproblemtyp.asp
字号:
<!--#include file="conn.asp"-->
<%
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
session("typ")=request.querystring("typ")
typ=session("typ")
%>
<html>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
<body bgcolor="#FFFFFF" text="#000000" style="background-color: #D6DFF7">
<div align="center">
<center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr bordercolor="#FFFFFF">
<td width="25%"><div align="center"><a href="sys_addaffiche.asp">首页公告管理</a></div></td>
<td width="25%"><div align="center"><a href="sys_addbank.asp">付款事项管理</a></div></td>
<td width="25%"><div align="center"><a href="sys_adddownload.asp">常用软件管理</a></div></td>
<td width="25%"><div align="center"><a href="sys_addproblemtyp.asp">常见问题管理</a></div></td>
</tr>
</table>
</center>
</div>
<br>
<%
if request.querystring("cmd")="del" then
id=request.querystring("id")
typ=request.QueryString("typ")
smalltyp=request.QueryString("smalltyp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from problem where id="& id &""
rs.open sql,conn,3,3
rs.delete
response.Redirect("sys_upproblemtyp.asp?typ="& typ &"&smalltyp="&smalltyp&"&cmd=look")
end if
%>
<div align="center">
<center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<form name="form" method="post" action="sys_addproblemtyp.asp?cmd=add">
<tr>
<td width="25%" bordercolor="#FFFFFF">
<div align="center"><a href="sys_upproblemtyp.asp?cmd=look&typ=<%=typ%>&smalltyp=基础知识">基础知识</a></div>
</td>
<td width="25%" bordercolor="#FFFFFF"><div align="center"><a href="sys_upproblemtyp.asp?cmd=look&typ=<%=typ%>&smalltyp=业务相关">业务相关</a></div></td>
<td width="25%" bordercolor="#FFFFFF"><div align="center"><a href="sys_upproblemtyp.asp?cmd=look&typ=<%=typ%>&smalltyp=故障解决">故障解决</a></div></td>
<td width="25%" bordercolor="#FFFFFF"><div align="center"><a href="sys_upproblemtyp.asp?cmd=look&typ=<%=typ%>&smalltyp=其他">其他</a></div></td>
</tr>
</form>
</table>
</center>
</div>
<%
if request.querystring("cmd")="look" then
smalltyp=server.htmlencode(request.querystring("smalltyp"))
typ=server.htmlencode(request.querystring("typ"))
myself=server.htmlencode(request.servervariables("path_info"))
set rs=server.createobject("adodb.recordset")
sql="select * from problem where bigtyp='"& typ &"' and smalltyp='"& smalltyp &"' order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write"<div align=center> 暂 时 没 有 此 类 问 题 </div>"
else
rs.Pagesize=8
page=clng(request("page"))
if page<1 or page=empty then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page%>
<br>
<div align="center">
<center>
<table width="80%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<form action=<%=myself%> method=get>
<td>
<%
if page<>1 then %>
<div align="center"><a href=<%=myself%>?page=1>第一页</a>
<a href=<%=myself%>?page=<%=(page-1)%>>上一页</a>
<%
end if
if page<>rs.pagecount then
%>
<a href=<%=myself%>?page=<%=(page+1)%>>下一页</a>
<a href=<%=myself%>?page=<%=rs.pagecount%>>最后一页</a>
<% end if %>
<font style="font-size:9pt"> 输入页次:</font>
<input type=text name=page22 size=3 class="border">
<font style="font-size:9pt">页次:</font><font color=red style="font-size:9pt"><%=page%>/<%=rs.pagecount%></font> 共有记录<font color=red style="font-size:9pt"><%=rs.recordcount %></font>条</div>
</td>
</form>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td height="17" background="images/admin/admin_bg_1.gif">
<div align="center" class="f1" ><%=smalltyp%>常见问题</div>
</td>
</tr>
<tr>
<td height="17">
<% i=1
a=0
a=a+1
do while not rs.eof%>
<table width="100%" border="0" align="center" cellpadding="3">
<form name="form" method="post" action="sys_addproblemtyp.asp?cmd=up&id=<%=rs("id")%>">
<tr>
<td><%=a%>. <%=rs("problemtop")%></td>
<td width="60" bgcolor="#EAF1FB"><div align="center"><a href="sys_addupproblem.asp?id=<%=rs("id")%>" class="f1">修改</a></div></td>
<td bgcolor="#EAF1FB" width="60"> <div align="center"> <a href=sys_upproblemtyp.asp?cmd=del&id=<%=rs("id")%>&typ=<%=rs("bigtyp")%>&smalltyp=<%=rs("smalltyp")%>><font color="#FF0000">删
除</font></a></div></td>
</tr>
</form>
<% i=i+1
if i>8 then exit do
RS.MoveNext
Loop
rs.close
%>
</table>
</td>
</tr>
</table>
</center>
</div>
<% end if %>
<% end if %>
</body>
</html>
<%
set rs=nothing
end if
%>
<% set conn=nothing %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -