📄 admingrade.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<body <%=background%> >
<% if Request.QueryString("mode")="edit" then
for i=1 to request.form("g_num").count
sqlch="Update grade set g_title='"&chktopic(request.form("g_title")(i))&"',g_fen="&chktopic(request.form("g_fen")(i))&" where g_num="&chktopic(Request.form("g_num")(i))&""
conn.Execute (sqlch)
next
response.write "<script>alert(""修改成功"");</script>"
end if
sql="select g_num,g_title,g_fen from grade order by g_num asc"
set rs=conn.execute(sql)
i=1
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr>
<td width="100%" <%=tColor%> class=tdc1 colspan="3">
<p align="center">论坛等级管理</td>
</tr>
<tr >
<input type="hidden" name="g_um" value="<%=rs("g_num")%>">
<td width="20%" align="center" bgcolor=<%=tColor2%> class=tdc>等级</td>
<td width="27%" bgcolor=<%=tColor2%> class=tdc>
等级名称</td>
<td width="53%" bgcolor=<%=tColor2%> class=tdc>
升级所需经验 </td>
</tr>
<form method="POST" action="?mode=edit">
<% do while not rs.Eof %>
<tr >
<td width="20%" align="center" bgcolor=<%=tColor2%> class=tdc>等级<%=i%></td>
<td width="27%" bgcolor=<%=tColor2%> class=tdc><input type="text" name="g_title" size="20" value="<%=rs("g_title")%>" class=bdtj3></td>
<td width="53%" bgcolor=<%=tColor2%> class=tdc><input type="text" name="g_fen" size="20" value="<%=rs("g_fen")%>" class=bdtj3></td>
<input type="hidden" name="g_num" size="20" value="<%=rs("g_num")%>">
</tr>
<%
rs.MoveNext
i=i+1
Loop
rs.Close
set rs=nothing%>
<tr >
<td width="100%" align="center" bgcolor=<%=tColor2%> class=tdc colspan="3">
请不要删除任何等级</td>
</tr>
<tr >
<td width="100%" align="center" bgcolor=<%=tColor2%> class=tdc colspan="3">
<input type="submit" value="提交" name="B1" class=bdtj></td>
</tr>
</form> </table>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -