📄 sys_addproblem.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
bigtyp=request.QueryString("typ")
%>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" 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")="add" then
problemtop=server.htmlencode(request.form("problemtop"))
problem=server.htmlencode(request.form("problem"))
smalltyp=server.htmlencode(request.form("smalltyp"))
bigtyp=request.QueryString("typ")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from problem"
rs.open sql,conn,3,3
rs.addnew
rs("problemtop")=problemtop
rs("problem")=problem
rs("bigtyp")=bigtyp
rs("smalltyp")=smalltyp
rs("date")=date()
rs.update
end if
if request.querystring("cmd")="del" then
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from problem where id="&id&""
rs.open sql,conn,3,3
rs.delete
end if
%>
<div align="center">
<center>
<table width="98%" border="1" cellspacing="0" cellpadding="5" bordercolor="#6687BA" style="border-collapse: collapse">
<form name="form" method="post" action="sys_addproblem.asp?cmd=add&typ=<%=bigtyp%>">
<tr>
<td background="images/admin/admin_bg_1.gif">
<div align="center" class="f1" >常 见 问 题 添 加</div>
</td>
</tr>
<tr>
<td>
<div align="center">问题标题：
<input name="problemtop" type="text" id="problemtop" size="49">
<br>
<br>
问题内容：
<textarea name="problem" cols="40" rows="8" wrap="VIRTUAL" id="problem"></textarea>
<br>
<br>
问题归属：
<select name="smalltyp" id="smalltyp">
<option value="基础知识" selected>基础知识</option>
<option value="业务相关">业务相关</option>
<option value="故障解决">故障解决</option>
<option value="其他">其他</option>
</select>
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重写">
</div>
</td>
</tr>
</form>
</table>
</center>
</div>
<br>
<% Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from problemtyp"
rs.open sql,conn,3,3
if rs.eof then
response.write""
else
%>
<div align="center">
<table width="98%" height="20" border="1" bordercolor="#6687BA" style="border-collapse: collapse" cellspacing="0" cellpadding="5">
<tr>
<% do while not rs.eof
response.write"<td width=25% bordercolor=#f1f1f1><div align=center><A href=sys_upproblemtyp.asp?typ="&rs("problemtyp")&" class=f1>"&rs("problemtyp")&"</A></div></td>"
i=i+1
if i=4 then
response.write"</tr>"
i=0
end if
rs.movenext
loop
%>
</table>
</div>
<% end if %>
</body>
<%
end if
rs.close
set rs=nothing
set conn=nothing %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -