?? admin_usergrade.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
response.buffer=true
Const PurviewLevel=2
Const CheckChannelID=0
Const PurviewLevel_Others="User"
%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim rs, sql
dim Action,FoundErr,ErrMsg
Action=trim(request("Action"))
%>
<html>
<head>
<title>用戶等級管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td height="22" colspan=2 align=center><strong>用 戶 等 級 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理導航：</strong></td>
<td height="30"> <a href="Admin_UserGrade.asp">用戶等級管理首頁</a> | <a href="Admin_UserGrade.asp?Action=Add">添加新用戶等級</a></td>
</tr>
</table>
<br>
<%
if Action="Add" then
call Add()
elseif Action="SaveAdd" then
call SaveAdd()
elseif Action="SaveModify" then
call SaveModify()
elseif Action="Del" then
call DelGrade()
else
call main()
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub main()
sql="select * from UserGrade order by Grade"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
%>
<form name="form1" method="post" action="">
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
<tr align="center" class="title">
<td height="22"><strong>用戶等級</strong></td>
<td height="22"><strong>等級名稱</strong></td>
<td height="22"><strong>圖 片</strong></td>
<td height="22"><strong>最少文章數</strong></td>
<td height="22"><strong>每天限制發表文章數</strong></td>
<td><strong>操作</strong></td>
</tr>
<%do while not rs.eof%>
<tr align="center" class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td><input name="GradeID" type="hidden" id="GradeID" value="<%=rs("GradeID")%>">
<input name="Grade" type="text" id="Grade" value="<%=rs("Grade")%>" size="8" maxlength="5"></td>
<td><input name="GradeName" type="text" id="GradeName" value="<%=rs("GradeName")%>" size="20" maxlength="50"></td>
<td><input name="GradePic" type="text" id="GradePic" value="<%=rs("GradePic")%>" size="20" maxlength="50"></td>
<td><input name="MinArticle" type="text" id="MinArticle" value="<%=rs("MinArticle")%>" size="10" maxlength="10"></td>
<td><input name="LimitEveryDay" type="text" id="LimitEveryDay" value="<%=rs("LimitEveryDay")%>" size="10" maxlength="8"></td>
<td><a href="Admin_UserGrade.asp?Action=Del&GradeID=<%=rs("GradeID")%>">刪除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr align="center" class="tdbg">
<td colspan="6"><input name="Action" type="hidden" id="Action" value="SaveModify">
<input type="submit" name="Submit" value=" 保存修改結果 "></td>
</tr>
</table>
</form>
<%
end sub
sub Add()
%>
<form name="form1" method="post" action="Admin_UserGrade.asp">
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
<tr align="center" class="title">
<td height="22" colspan="2"><strong>新 增 用 戶 等 級</strong></td>
</tr>
<tr class="tdbg">
<td width="300"><strong>用戶等級</strong><br>
必須是數字</td>
<td><input name="Grade" type="text" id="Grade" size="8" maxlength="5"></td>
</tr>
<tr class="tdbg">
<td width="300"><strong>等級名稱</strong></td>
<td><input name="GradeName" type="text" id="GradeName" size="30" maxlength="50"></td>
</tr>
<tr class="tdbg">
<td width="300"><strong>圖片</strong><br>
請首先將相應圖片放到images目錄中，然后在此直接輸入文件名即可，不要輸入路徑</td>
<td><input name="GradePic" type="text" id="GradePic" size="30" maxlength="50"></td>
</tr>
<tr class="tdbg">
<td width="300"><strong>最少文章數</strong><br>
必須是數字</td>
<td><input name="MinArticle" type="text" id="MinArticle" size="8" maxlength="8"></td>
</tr>
<tr class="tdbg">
<td width="300"><strong>每天限制發表文章數</strong><br>
必須是數字</td>
<td><input name="LimitEveryDay" type="text" id="LimitEveryDay" size="8" maxlength="8"></td>
</tr>
<tr align="center" class="tdbg">
<td colspan="2"><input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="submit" name="Submit2" value=" 添 加 "></td>
</tr>
</table>
</form>
<%
end sub
%>
</body>
</html>
<%
sub SaveAdd()
dim Grade,GradeName,GradePic,MinArticle,LimitEveryDay
Grade=trim(request("Grade"))
GradeName=trim(request("GradeName"))
GradePic=trim(request("GradePic"))
MinArticle=trim(request("MinArticle"))
LimitEveryDay=trim(request("LimitEveryDay"))
if Grade="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>請輸入用戶等級</li>"
elseif not isnumeric(Grade) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用戶等級必須是數字</li>"
end if
if GradeName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>請輸入等級名稱</li>"
end if
if GradePic="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>請輸入等級圖片</li>"
end if
if MinArticle="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>請輸入最少文章數</li>"
elseif not isnumeric(MinArticle) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>最少文章數必須是數字</li>"
end if
if LimitEveryDay="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>請輸入每天限制發表文章數</li>"
elseif not isnumeric(LimitEveryDay) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>每天限制發表文章數必須是數字</li>"
end if
if FoundErr=True then
exit sub
end if
sql="select * from UserGrade where Grade=" & Clng(Grade) & " or GradeName='" & GradeName & "'"
set rs = server.CreateObject ("Adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.addnew
rs("Grade")=Clng(Grade)
rs("GradeName")=GradeName
rs("GradePic")=GradePic
rs("MinArticle")=MinArticle
rs("LimitEveryDay")=LimitEveryDay
rs.update
rs.close
set rs=nothing
call CloseConn()
response.redirect "Admin_UserGrade.asp"
else
FoundErr=True
if rs("Grade")=Grade then
ErrMsg=ErrMsg & "<br><li>已經存在用戶等級：" & Grade & "<li>"
end if
if rs("GradeName")=GradeName then
ErrMsg=ErrMsg & "<br><li>已經存在等級名稱“" & GradeName & "”</li>"
end if
end if
rs.close
set rs=nothing
end sub
sub SaveModify()
dim GradeID,Grade,GradeName,GradePic,MinArticle,LimitEveryDay,i
GradeID=trim(request("GradeID"))
Grade=trim(request("Grade"))
GradeName=trim(request("GradeName"))
GradePic=trim(request("GradePic"))
MinArticle=trim(request("MinArticle"))
LimitEveryDay=trim(request("LimitEveryDay"))
if GradeID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>請先添加用戶等級</li>"
exit sub
end if
if instr(GradeID,",")>0 then
for i=1 to request.form("GradeID").count
GradeID=replace(trim(request.form("GradeID")(i)),"'","")
Grade=replace(trim(request.form("Grade")(i)),"'","")
GradeName=replace(trim(request.form("GradeName")(i)),"'","")
GradePic=replace(trim(request.form("GradePic")(i)),"'","")
MinArticle=replace(trim(request.form("MinArticle")(i)),"'","")
LimitEveryDay=replace(trim(request.form("LimitEveryDay")(i)),"'","")
if isnumeric(GradeID) and isnumeric(Grade) and GradeName<>"" and GradePic<>"" and isnumeric(MinArticle) and isnumeric(LimitEveryDay) then
conn.execute("update UserGrade set Grade=" & Clng(trim(Grade)) & ",GradeName='" & trim(GradeName) & "',GradePic='" & trim(GradePic) & "',MinArticle=" & Clng(Trim(MinArticle)) & ",LimitEveryDay=" & Clng(Trim(LimitEveryDay)) & " where GradeID=" & Clng(trim(GradeID)))
end if
next
else
if isnumeric(GradeID) and isnumeric(Grade) and GradeName<>"" and GradePic<>"" and isnumeric(MinArticle) and isnumeric(LimitEveryDay) then
conn.execute("update UserGrade set Grade=" & Clng(trim(Grade)) & ",GradeName='" & trim(GradeName) & "',GradePic='" & trim(GradePic) & "',MinArticle=" & Clng(Trim(MinArticle)) & ",LimitEveryDay=" & Clng(Trim(LimitEveryDay)) & " where GradeID=" & Clng(trim(GradeID)))
end if
end if
call WriteSuccessMsg("保存用戶等級修改結果成功！")
end sub
sub DelGrade()
dim GradeID,trs,tGrade
GradeID=trim(request("GradeID"))
if GradeID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>請指定要刪除的用戶等級ID</li>"
exit sub
else
GradeID=Clng(GradeID)
end if
set trs=conn.execute("select Grade from UserGrade where GradeID=" & GradeID)
tGrade=trs(0)
set trs=conn.execute("select GradeID from UserGrade where Grade<" & tGrade)
if not (trs.bof and trs.eof) then
conn.execute("update [User] set UserGrade=" & trs(0) & " where UserGrade=" & GradeID)
else
conn.execute("update [User] set UserGrade=1 where UserGrade=" & GradeID)
end if
conn.execute("delete from UserGrade where GradeID=" & GradeID)
call WriteSuccessMsg("刪除等級成功！同時已將屬于該等級的用戶降為下一級。")
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -