📄 groupintro.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim intUserGroupID
Dim strGroupName
Dim lngMinimumPosts
Dim blnSpecialGroup
Dim intStars
Dim strCustomStars
Dim strMode
lngMinimumPosts = 0
blnSpecialGroup = False
intStars = 1
intUserGroupID = CInt(Request.QueryString("gid"))
strMode = Request("mode")
strSQL = "SELECT timesgrp.* FROM timesgrp WHERE timesgrp.grpid = " & intUserGroupID & ";"
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If (strMode = "edit" OR strMode = "new") AND Request.Form("postBack") Then
strGroupName = Request.Form("name")
lngMinimumPosts = CLng(Request.Form("posts"))
blnSpecialGroup = CBool(Request.Form("rank"))
intStars = CInt(Request.Form("stars"))
strCustomStars = Request.Form("custStars")
If blnSpecialGroup Then
lngMinimumPosts = CInt("-1")
End If
With rsConn
If strMode = "new" Then .AddNew
.Fields("Name") = strGroupName
.Fields("Stars") = intStars
.Fields("cusstars") = strCustomStars
If intUserGroupID <> 1 AND intUserGroupID <> 2 Then
.Fields("minipost") = lngMinimumPosts
.Fields("cusrank") = blnSpecialGroup
End If
.Update
End With
If strMode = "new" Then
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect"disgroup.asp"
End If
rsConn.Requery
End If
If NOT rsConn.EOF Then
strGroupName = rsConn("Name")
lngMinimumPosts = CLng(rsConn("minipost"))
blnSpecialGroup = CBool(rsConn("cusrank"))
intStars = CInt(rsConn("Stars"))
strCustomStars = rsConn("cusstars")
End If
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>用户组信息</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript">
<!-- Hide from older browsers...
function CheckForm () {
if (document.frmGroup.name.value==""){
alert("请选择用户组名称");
return false;
}
return true
}
// -->
</script>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading"><strong><font size="5">用户组信息</font></strong></span><br>
<br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br>
<br />
<a href="disgroup.asp" target="_self">返回到用户组管理首页</a><br />
</div>
<form method="post" name="frmGroup" action="groupintro.asp?gid=<% = intUserGroupID %>" onSubmit="return CheckForm();">
<br />
<table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td width="450"> <table width="100%" border="0" align="center" class="normal" cellpadding="4" cellspacing="1">
<tr bgcolor="#CCCCCC">
<td colspan="2" class="tHeading"><b>用户组信息：</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="60%" class="text">等级头衔:</td>
<td width="40%" valign="top"> <input name="name" type="text" id="name" value="<% = strGroupName %>" size="20" maxlength="39"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">几颗星*:<br />
</td>
<td valign="top"><select name="stars" id="stars">
<option<% If intStars = 0 Then Response.Write " selected" %>>0</option>
<option<% If intStars = 1 Then Response.Write " selected" %>>1</option>
<option<% If intStars = 2 Then Response.Write " selected" %>>2</option>
<option<% If intStars = 3 Then Response.Write " selected" %>>3</option>
<option<% If intStars = 4 Then Response.Write " selected" %>>4</option>
<option<% If intStars = 5 Then Response.Write " selected" %>>5</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">自定义等级头像</td>
<td valign="top"><input name="custStars" type="text" id="custStars" value="<% = strCustomStars %>" size="30" maxlength="75"></td>
</tr><%
If intUserGroupID <> 1 AND intUserGroupID <> 2 Then
%>
<tr bgcolor="#FFFFFF">
<td class="text"><p>不参与等级排列<span class="smText"></span></p></td>
<td valign="top"><input name="rank" type="checkbox" id="rank" value="true"<% If blnSpecialGroup Then Response.Write " checked" %>></td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="text">所需的文章数<span class="smText"></span></td>
<td valign="top"><select name="posts" id="posts">
<option<% If lngMinimumPosts = 0 Then Response.Write " selected" %>>0</option>
<option<% If lngMinimumPosts = 10 Then Response.Write " selected" %>>10</option>
<option<% If lngMinimumPosts = 20 Then Response.Write " selected" %>>20</option>
<option<% If lngMinimumPosts = 30 Then Response.Write " selected" %>>30</option>
<option<% If lngMinimumPosts = 40 Then Response.Write " selected" %>>40</option>
<option<% If lngMinimumPosts = 50 Then Response.Write " selected" %>>50</option>
<option<% If lngMinimumPosts = 60 Then Response.Write " selected" %>>60</option>
<option<% If lngMinimumPosts = 70 Then Response.Write " selected" %>>70</option>
<option<% If lngMinimumPosts = 80 Then Response.Write " selected" %>>80</option>
<option<% If lngMinimumPosts = 90 Then Response.Write " selected" %>>90</option>
<option<% If lngMinimumPosts = 100 Then Response.Write " selected" %>>100</option>
<option<% If lngMinimumPosts = 125 Then Response.Write " selected" %>>125</option>
<option<% If lngMinimumPosts = 150 Then Response.Write " selected" %>>150</option>
<option<% If lngMinimumPosts = 200 Then Response.Write " selected" %>>200</option>
<option<% If lngMinimumPosts = 250 Then Response.Write " selected" %>>250</option>
<option<% If lngMinimumPosts = 300 Then Response.Write " selected" %>>300</option>
<option<% If lngMinimumPosts = 350 Then Response.Write " selected" %>>350</option>
<option<% If lngMinimumPosts = 400 Then Response.Write " selected" %>>400</option>
<option<% If lngMinimumPosts = 450 Then Response.Write " selected" %>>450</option>
<option<% If lngMinimumPosts = 500 Then Response.Write " selected" %>>500</option>
<option<% If lngMinimumPosts = 760 Then Response.Write " selected" %>>760</option>
<option<% If lngMinimumPosts = 1000 Then Response.Write " selected" %>>1000</option>
<option<% If lngMinimumPosts = 1500 Then Response.Write " selected" %>>1500</option>
<option<% If lngMinimumPosts = 2000 Then Response.Write " selected" %>>2000</option>
<option<% If lngMinimumPosts = 2500 Then Response.Write " selected" %>>2500</option>
<option<% If lngMinimumPosts = 3000 Then Response.Write " selected" %>>3000</option>
<option<% If lngMinimumPosts = 5000 Then Response.Write " selected" %>>5000</option>
<option<% If lngMinimumPosts = 7600 Then Response.Write " selected" %>>7600</option>
<option<% If lngMinimumPosts = 10000 Then Response.Write " selected" %>>10000</option>
<option<% If lngMinimumPosts = 15000 Then Response.Write " selected" %>>15000</option>
<option<% If lngMinimumPosts = 20000 Then Response.Write " selected" %>>20000</option>
<option<% If lngMinimumPosts = 30000 Then Response.Write " selected" %>>30000</option>
<option<% If lngMinimumPosts = 40000 Then Response.Write " selected" %>>40000</option>
<option<% If lngMinimumPosts = 50000 Then Response.Write " selected" %>>50000</option>
<option<% If lngMinimumPosts = 76000 Then Response.Write " selected" %>>76000</option>
<option<% If lngMinimumPosts = 100000 Then Response.Write " selected" %>>100000</option>
</select></td>
</tr><%
End If
%>
</table></td>
</tr>
</table>
<div align="center"><br />
<input type="hidden" name="postBack" value="true">
<input type="hidden" name="mode" value="<% = strMode %>">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Reset" value="清除">
<br />
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -