📄 usergrade.asp

📁 BBS论坛的开发和设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<!--#include file="Function.asp"-->
<!--#include file="../INC/FSO.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户级别管理</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
  return eval(jsStr)
}
//-->
</script>
</head>

<body leftmargin="0" topmargin="0">
<%
if not testObj("Scripting.FileSystemObject") then
	response.write "<br><br>&nbsp;&nbsp;您的空间不支持FSO,请手动编辑论坛INC目录下的usergrade.asp文件"
	response.End()
End if
Function updatefile
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select gradepost,gradetitle from JBB_grade order by gradepost asc",conn,1,1
	if not (rs.eof and rs.bof) then
		for i = 1 to rs.recordcount
			gradeValue = gradeValue&""""&rs(0)&""","
			gradeName = gradeName&""""&rs(1)&""","
		rs.movenext
		next
		gradeValueLen = Len(gradeValue)
		gradeValue=left(gradeValue,gradeValueLen-1)		
		gradeNameLen = Len(gradeName)
		gradeName=left(gradeName,gradeNameLen-1)
	End if
	rs.close
	set rs = nothing
	gradeContent = "<%"&chr(10)
	gradeContent = gradeContent+"''请慎重编辑以下两行内容,第一行为会员级别名称,第二行为对应所需贴数"+chr(10)+chr(10)
	gradeContent = gradeContent+"gradeName=array("&gradeName&")"&chr(10)
	gradeContent = gradeContent+"gradeValue=array("&gradeValue&")"&chr(10)
	gradeContent = gradeContent+"%"+">"
	Call FileSub("../INC/usergrade.asp",gradeContent)
end Function
'---------------------------------------
action = trim(request.QueryString("action"))
SELECT CASE action
	Case "add"
		Call add()
	Case "SaveNew"
		Call SaveNew()
	Case "Edit"
		Call Edit()
	Case "SaveEdit"
		Call SaveEdit()
	Case "Del"
		Call Del()
	Case else
		Call list()
End SELECT
'========================
Sub SaveNew()
	gradepost = trim(request.form("gradepost"))
	gradepost = replace(gradepost,"'","")
		if Not(IsNumeric(gradepost))then ErrorMsg "请输入级别所需贴数!~"
	gradetitle = trim(request.form("gradetitle"))
	gradetitle = replace(gradetitle,"'","")
	if gradetitle = "" then ErrorMsg "请输入等级名!~"
	Conn.ExeCute("insert into JBB_grade(gradepost,gradetitle) values("& gradepost &",'"& gradetitle &"')")
	updatefile
	response.write "<br><br>　　添加成功!~"
End Sub
'============================
Sub SaveEdit()
	id =trim(request.QueryString("gradeid"))
		if Not(IsNumeric(id)) then ErrorMsg "参数错误!"	
	gradepost = trim(request.form("gradepost"))
	gradepost = replace(gradepost,"'","")
		if Not(IsNumeric(gradepost))then ErrorMsg "请输入级别所需贴数!~"
	gradetitle = trim(request.form("gradetitle"))
	gradetitle = replace(gradetitle,"'","")
	if gradetitle = "" then ErrorMsg "请输入等级名!~"
	Conn.ExeCute("update JBB_grade set gradepost='"& gradepost &"',gradetitle='"& gradetitle &"' where gradeid = "&id)
	updatefile
	response.write "<br><br>　　修改成功!~"
End Sub
'============================
Sub add()
%>
<br>
  <form name="form1" method="post" action="?action=SaveNew">
  <table width="345" height="40" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>添加级别</strong></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="81" height="30">等 级 名： </td>
      <td width="245"> 
        <input name="gradetitle" type="text" id="gradetitle" size="30"></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="30">所需贴数： </td>
      <td> 
        <input name="gradepost" type="text" id="gradepost" size="30"></td>
  </tr>
</table>
<div align="center"><br>
    <input name="Submit" type="submit" class="form1" value="添加">
    　 
    <input name="Submit2" type="reset" class="form1" value="重置">
</div>
  </form>
<%
End Sub
'================================
Sub list()
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select gradeID,gradepost,gradetitle from JBB_grade Order By gradepost asc",conn,1,1
	if Not(rs.eof and rs.bof) then
%>
<br>
<table width="254" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFE7"> 
    <td width="100"> <div align="center"><strong>等级名</strong></div></td>
    <td width="63"> <div align="center"><strong>所需贴数</strong></div></td>
    <td width="69"> <div align="center"><strong>管理</strong></div></td>
  </tr>
  <%	
		do while not rs.eof
	%>
  <tr bgcolor="#FFFFFF"> 
    <td> <div align="center"><%=rtrim(rs(2))%></div></td>
    <td> <div align="center"><%=rtrim(rs(1))%></div></td>
    <td> <div align="center"><a href="?action=Edit&gradeid=<%=rs(0)%>">[编]</a> 
        <a href="?action=Del&gradeid=<%=rs(0)%>">[删]</a></div></td>
  </tr>
  <% 
		rs.MoveNext
		Loop
 %>
</table>
<br>
<br>
<%
	else
		response.Write("暂时没有级别")
	End if
	rs.close
	set rs = Nothing
End Sub
'=============================
Sub Del()
	gradeid = trim(request.QueryString("gradeid"))
		if Not(IsNumeric(gradeid)) then ErrorMsg "参数错误!~"
	if trim(request.Form("Submit")) = "确定删除" then
		Conn.ExeCute("Delete From JBB_grade where gradeID="&gradeid)
		updatefile
		response.Write("<br><br>　　删除完毕!~")
	else
%>
<br>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form2" method="post" action="?action=Del&gradeid=<%=gradeid%>">
    <tr> 
      <td bgcolor="#EFEFE7"> 
        <div align="center"><strong>确认删除</strong></div></td>
    </tr>
    <tr> 
      <td height="50" bgcolor="#FFFFFF">
<div align="center"><font color="#FF0000">您确定删除这个级别吗？</font></div></td>
    </tr>
    <tr> 
      <td bgcolor="#EFEFE7"> 
        <div align="center"> 
          <input name="Submit" type="submit" class="form1" id="Submit" value="确定删除">
          　 
          <input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
        </div></td>
    </tr>
  </form>
</table>
<%
	End if
End Sub
'==========================
Sub Edit()
	gradeid = trim(request.QueryString("gradeid"))
		if Not(IsNumeric(gradeid)) then ErrorMsg "参数错误!~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select gradepost,gradetitle from JBB_grade where gradeid="&gradeid,conn,1,1
	if Not(rs.eof and rs.bof) then
%><br>
  
<form name="form1" method="post" action="?action=SaveEdit&gradeid=<%=gradeid%>">
  <table width="345" height="40" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>修改级别</strong></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="85" height="30">等 级 名： </td>
      <td width="241"> 
        <input name="gradetitle" type="text" id="gradetitle" value="<%=rtrim(rs(1))%>" size="30"></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="30">所需贴数： </td>
      <td> 
        <input name="gradepost" type="text" id="gradepost" value="<%=rtrim(rs(0))%>" size="30"></td>
  </tr>
</table>
<div align="center"><br>
    <input name="Submit" type="submit" class="form1" value="修改">
    　 
    <input name="Submit2" type="reset" class="form1" value="重置">
</div>
  </form>
<%
	End if
	rs.close
	set rs = nothing	
End Sub
%>
</body>
</html>
<%
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -