自己做的动易在线报名系统 PW2006
前台
ShowPage.asp?id=xx 【自定义页面】
前台
ShowPage.asp?id=xx 【自定义页面】
<form action="SaveBm.asp" method="post">
<div class="online_cf_l1">
<p class="ulr"> </p>
<ul class="ul_title">基本信息</ul>
<ul class="ul_sel">
<li>
学生姓名：<input type="text" class="input_130" name="StudentName" id="StudentName"> <span class="red">*</span>
</li>
<li>
学生年级：<input type="text" class="input_130" name="StudentClass" id="StudentClass"> <span class="red">*</span>
</li>
</ul>
</div>
<div class="online_cf_l2">
<div class="ul_title">联系信息</div>
<ul class="ul_sel">
<li>
家长姓名：<input type="text" class="input_130" name="ParentsName" id="ParentsName"> <span class="red">*</span>
</li>
<li>
电话号码：<input type="text" class="input_130" name="Tel" id="Tel"> <span class="red">*</span>
</li>
<li>
电子邮件：<input type="text" class="input_130" name="Mail" id="Mail">
</li>
<li class="height100 inde_65">
其他说明：<textarea name="Content" rows="4" class="textarea_370" id="Content"></textarea>
</li>
<li class="but">
<input type="submit" value="提交" onmouseout="this.className='submit_sub'" name="" class="submit_sub">
</li>
</ul>
<div class="clearfloat"></div>
</div>
</form>
SaveBm.asp
View Code
1 <!--#include file="Start.asp"-->
2 <%
3 Dim StudentName, StudentClass, ParentsName, Mail, Tel, Content, exec
4 set conn=server.createobject("adodb.connection")
5 conn.Provider="Microsoft.Jet.OLEDB.4.0"
6 conn.open=server.mappath("/Database/SiteWeaver.mdb")
7 StudentName=request.form("StudentName")
8 StudentClass=request.form("StudentClass")
9 ParentsName=request.form("ParentsName")
10 Mail = request.Form("Mail")
11 Tel=request.form("Tel")
12 Content=request.form("Content")
13 Iflen(StudentName) <2Then
14 response.write "<script>alert(""请输入学生姓名!"");history.back(-1);</script>"
15 EndIf
16 Iflen(ParentsName) <2Then
17 response.write "<script>alert(""请输入家长姓名!"");history.back(-1);</script>"
18 EndIf
19 Iflen(Tel) <8Then
20 response.write "<script>alert(""请正确输入电话号码!"");history.back(-1);</script>"
21 EndIf
22 exec="insert into PE_Zxbm(StudentName,StudentClass,ParentsName,Tel,Mail,Content)values('"+StudentName+"','"+StudentClass+"','"+ParentsName+"','"+Tel+"','"+Mail+"','"+Content+"')"
23 conn.execute exec
24 conn.close
25 set conn=nothing
26 response.write "<script>alert(""报名成功!"");location.replace('Showpage.Asp?id=4');</script>"
27 %>
后台
Admin_Index_Left.asp
1 '=========================
2 '网上报名
3 '=========================
4 Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>"& vbCrLf
5 Response.Write " <tr>"& vbCrLf
6 Response.Write " <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_3.gif' id=menuTitle301 onclick=""new Element.toggle('submenu1001')"" style='cursor:hand;'><a href='Admin_Help_zxbm.asp' target='main'><span class=glow>在线报名管理</span></a></td>"& vbCrLf
7 Response.Write " </tr>"& vbCrLf
8 Response.Write " <tr>"& vbCrLf
9 Response.Write " <td style='display:none' align='right' id='submenu1001'><div class=sec_menu style='width:165'>"& vbCrLf
10 Response.Write " <table cellpadding=0 cellspacing=0 align=center width=130>"& vbCrLf
11 If AdminPurview =1And FileExt_SiteIndex <4Then
12 Response.Write " <tr height=20>"& vbCrLf
13 Response.Write " <td><a href='Admin_Zxbm.asp' target='main'>报名列表管理</a></td>"& vbCrLf
14 Response.Write " </tr>"& vbCrLf
15 EndIf
16 If AdminPurview =1Then
17 Response.Write " <tr height=20>"& vbCrLf
18 Response.Write " <td><a href='Admin_Zxbm.asp' target='main'>报名列表管理</a></td>"& vbCrLf
19 Response.Write " </tr>"& vbCrLf
20 EndIf
21 Response.Write " <tr height=20>"& vbCrLf
22 Response.Write " <td><a href='Admin_Zxbm_xz.asp?Result=Add' target='main'>新增在线报名</a></td>"& vbCrLf
23 Response.Write " </tr>"& vbCrLf
24 If AdminPurview =1And FileExt_SiteSpecial <4Then
25 Response.Write " <tr height=20>"& vbCrLf
26 Response.Write " <td><a href='Admin_CreateHTML.asp?Action=SiteSpecial' target='main'>全站专题生成管理</a></td>"& vbCrLf
27 Response.Write " </tr>"& vbCrLf
28 EndIf
29 Response.Write strActionLink & vbCrLf
30 If FileExt_SiteIndex <4Or FileExt_SiteSpecial <4Or strActionLink <>""Then
31 Response.Write " <tr>"& vbCrLf
32 Response.Write " <td height=20><a href=Admin_Timing.asp?Action=main target=main>定时设置</a> | <a href=Admin_Timing.asp?Action=DoMainTiming target='_blank'>启动定时</a></td>"& vbCrLf
33 Response.Write " </tr>"& vbCrLf
34 EndIf
35 Response.Write " </table>"& vbCrLf
36 Response.Write " </div>"& vbCrLf
37 Response.Write " <div style='width:167'>"& vbCrLf
38 Response.Write " <table cellpadding=0 cellspacing=0 align=center width=130>"& vbCrLf
39 Response.Write " <tr>"& vbCrLf
40 Response.Write " <td height=5></td>"& vbCrLf
41 Response.Write " </tr>"& vbCrLf
42 Response.Write " </table>"& vbCrLf
43 Response.Write " </div></td>"& vbCrLf
44 Response.Write " </tr>"& vbCrLf
45 Response.Write "</table>"& vbCrLf
Admin_Zxbm.asp
<!--#include file="Admin_Common.asp"--> <script language="javascript"> function CheckOthers(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; if (e.checked==false) { e.checked = true; } else { e.checked = false; } } } function CheckAll(form) { for (var i=0;i<form.elements.length;i++) { var e = form.elements[i]; e.checked = true; } } function test() { if(!confirm('是否确定进行批量操作？操作后不能恢复！')) return false; } </script> <% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.howia.net ' Copyright (C) 2011 号外科技开发 版权所有 '************************************************************** Const NeedCheckComeUrl = True '是否需要检查外部访问 Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员 Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员 Const PurviewLevel_Others = "UserGroup" '其他权限 Dim rsUserGroup, GroupSetting GroupID = PE_CLng(Trim(Request("GroupID"))) Response.Write "<html>" & vbCrLf Response.Write "<head>" & vbCrLf Response.Write "<title>网上管理</title>" & vbCrLf Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf Response.Write "</head>" & vbCrLf Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf Call ShowPageTitle("网 上 报 名 管 理", 10043) Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='70' height='30'>管理导航：</td>" & vbCrLf Response.Write " <td height='30'><a href='?'>网上报名管理首页</a> | <a href='Admin_Zxbm_xz.asp?Result=Add'>新增报名</a> </td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write "</table>" & vbCrLf Select Case Action Case "Add" Call Add Case "Modify" Call Modify Case "SaveAdd", "SaveModify" Call SaveGroup Case "Del" Call Del Case Else Call main End Select If FoundErr = True Then Call WriteErrMsg(ErrMsg, ComeUrl) End If Response.Write "</body></html>" Call CloseConn Sub main() Dim strSql, i strSql = "SELECT ID,StudentName,StudentClass,ParentsName,Tel,Mail,Content,Addtime FROM PE_Zxbm ORDER by ID desc" Set rsUserGroup = Server.CreateObject("adodb.recordset") rsUserGroup.Open strSql, Conn, 1, 1 If rsUserGroup.BOF And rsUserGroup.EOF Then FoundErr = True ErrMsg = ErrMsg & "<li>对不起，数据库中没有找到任何在线报名资料，您的数据库已经损坏或者没有资料，请从默认数据库中导入PE_Zxbm表。</li>" rsUserGroup.Close Set rsUserGroup = Nothing Exit Sub End If totalPut = rsUserGroup.recordcount CurrentPage = Trim(Request("page")) If CurrentPage = "" Then CurrentPage = 1 Else CurrentPage = PE_CLng(CurrentPage) End If MaxPerPage = PE_CLng(Trim(Request("MaxPerPage"))) If MaxPerPage <= 0 Then MaxPerPage = 12 '设置每页多少个报名 If CurrentPage < 1 Then CurrentPage = 1 End If If (CurrentPage - 1) * MaxPerPage > totalPut Then If (totalPut Mod MaxPerPage) = 0 Then CurrentPage = totalPut \ MaxPerPage Else CurrentPage = totalPut \ MaxPerPage + 1 End If End If If CurrentPage > 1 Then If (CurrentPage - 1) * MaxPerPage < totalPut Then rsUserGroup.Move (CurrentPage - 1) * MaxPerPage Else CurrentPage = 1 End If End If Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf Response.Write "<form action=""DelContent.Asp?Result=Zxbm"" method=""post"" name=""formDel"">" Response.Write " <tr align='center' height='22' class='title'>" & vbCrLf Response.Write " <td width='35'>选中</td>" & vbCrLf Response.Write " <td width='35'>ID</td>" & vbCrLf Response.Write " <td width='80'>学生姓名</td>" & vbCrLf Response.Write " <td width='80'>学生年级</td>" & vbCrLf Response.Write " <td width='80'>家长姓名</td>" & vbCrLf Response.Write " <td width='100'>电话号码</td>" & vbCrLf Response.Write " <td width='150'>创建时间</td>" & vbCrLf Response.Write " <td width='150'>操 作</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Dim UserGroupNum UserGroupNum = 0 Do While Not rsUserGroup.EOF Response.Write " <tr align='center' class='tdbg' onMouseOut=""this.className='tdbg'"" onMouseOver=""this.className='tdbg2'"">" & vbCrLf Response.Write " <td><input name='selectID' type='checkbox' value='"&rsUserGroup("ID")&"'></td>" & vbCrLf Response.Write " <td>" & rsUserGroup("ID") & "</td>" & vbCrLf Response.Write " <td>" & rsUserGroup("StudentName") & "</td>" & vbCrLf Response.Write " <td>" & rsUserGroup("StudentClass") & "</td>" & vbCrLf Response.Write " <td>" & rsUserGroup("ParentsName") & "</td>" & vbCrLf Response.Write " <td>" & rsUserGroup("Tel") & "</td>" & vbCrLf Response.Write " <td>" & rsUserGroup("Addtime") & "</td>" & vbCrLf Response.Write "<td>" Response.Write " <a href='Admin_Zxbm_xz.Asp?Result=Look&ID="&rsUserGroup("ID")&"'>查看</a> | <a href='Admin_Zxbm_xz.asp?Result=Add'>新增</a> | <a href='?Action=Del&ID=" & rsUserGroup("ID") & "' onclick=""return confirm('确实要删除此报名吗？');"">删除</a>" & vbCrLf Response.Write " | <a href='Admin_Zxbm_xz.Asp?Result=Modify&ID="&rsUserGroup("ID")&"'>修改</a></td>" Response.Write " </tr>" & vbCrLf rsUserGroup.MoveNext UserGroupNum = UserGroupNum + 1 If UserGroupNum >= MaxPerPage Then Exit Do Loop rsUserGroup.Close Set rsUserGroup = Nothing Response.Write "<tr>" & vbCrLf Response.Write "<td colspan='9' nowrap align=""right"" class=""forumRow""><input onClick=""CheckAll(this.form)"" name=""buttonAllSelect"" type=""button"" id=""submitAllSearch"" value=""全选""> <input onClick=""CheckOthers(this.form)"" name=""buttonOtherSelect"" type=""button"" id=""submitOtherSelect"" value=""反选""> <input name='batch' type='submit' value='删除所选' onClick=""return test();""></td>" & vbCrLf Response.Write "</tr>" & vbCrLf Response.Write "</form>" & vbCrLf Response.Write "<tr>" & vbCrLf Response.Write "<td colspan=""8"">" & vbCrLf Response.Write ShowPage("Admin_Zxbm.asp", totalPut, MaxPerPage, CurrentPage, True, True, "个报名", True) Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf Response.Write "</table>" & vbCrLf End Sub Sub Modify() GroupID = PE_CLng(Trim(Request.QueryString("GroupID"))) If GroupID = 0 Then FoundErr = True ErrMsg = ErrMsg & "<li>请指定GroupID</li>" Exit Sub End If Set rsUserGroup = Conn.Execute("SELECT GroupID,GroupName,GroupIntro,GroupType,GroupSetting,arrClass_Browse,arrClass_View,arrClass_Input FROM PE_UserGroup WHERE GroupID=" & GroupID & "") If rsUserGroup.BOF And rsUserGroup.EOF Then FoundErr = True ErrMsg = ErrMsg & "<li>找不到指定的会员组</li>" rsUserGroup.Close Set rsUserGroup = Nothing Exit Sub End If '防止会员手工修改数据库导致数组内容缺少的错误 GroupSetting = rsUserGroup("GroupSetting") & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0" '完毕 GroupSetting = Split(GroupSetting, ",") Dim i For i = 0 To UBound(GroupSetting) If GroupSetting(i) = "" Then GroupSetting(i) = 0 Next Call ShowJS_Check Response.Write "<form method='post' action='Admin_UserGroup.asp' name='form1' onSubmit='javascript:return CheckSubmit();'>" & vbCrLf Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf Response.Write " <tr class='title'>" & vbCrLf Response.Write " <td height='22' colspan='3'><div align='center'>修 改 会 员 组 设 置</div></td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>会员组名称：</td>" & vbCrLf Response.Write " <td><input name='GroupName' type='text' id='GroupName' value='" & rsUserGroup("GroupName") & "' size='20' maxlength='20'><font color='#FF0000'>*</font></td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>会员组说明：</td>" & vbCrLf Response.Write " <td><input name='GroupIntro' type='text' id='GroupIntro' value='" & rsUserGroup("GroupIntro") & "' size='50' maxlength='200'><font color='#FF0000'>*</font></td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>组 类 型：</td>" & vbCrLf Response.Write " <td><select name='GroupType' id='GroupType'" If rsUserGroup("GroupType") < 3 or rsUserGroup("GroupType") = 5 Then Response.Write "disabled" Response.Write ">" & vbCrLf If rsUserGroup("GroupType") = 0 Then Response.Write " <option value='0' selected>等待邮件验证</option>" & vbCrLf End If If rsUserGroup("GroupType") = 1 Then Response.Write " <option value='1' selected>等待管理员审批</option>" & vbCrLf End If If rsUserGroup("GroupType") = 2 Then Response.Write " <option value='2' selected>默认会员组</option>" & vbCrLf End If If rsUserGroup("GroupType") = 5 Then Response.Write " <option value='5' selected>匿名投稿</option>" & vbCrLf End If Response.Write " <option value='3'" If rsUserGroup("GroupType") = 3 Then Response.Write " selected" End If Response.Write ">注册会员</option>" & vbCrLf Response.Write " <option value='4'" If rsUserGroup("GroupType") = 4 Then Response.Write " selected" End If Response.Write ">代 理 商</option></select>" & vbCrLf Response.Write " </tr>" & vbCrLf If rsUserGroup("GroupID")<>-1 Then Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>发布权限：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting1' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(1)), 1) & ">在发布信息需要审核的频道，此组会员发布信息不需要审核<br>" & vbCrLf Response.Write "<input name='GroupSetting2' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(2)), 1) & ">可以修改和删除已审核的（自己的）信息<br>" & vbCrLf Response.Write "<input name='GroupSetting21' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(21)), 1) & ">发表信息时可以设置标题前缀<br>" & vbCrLf Response.Write "<input name='GroupSetting22' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(22)), 1) & ">发表信息时可以设置是否显示评论链接<br>" & vbCrLf Response.Write "<input name='GroupSetting23' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(23)), 1) & ">发表信息时可以设置转向链接<br>" & vbCrLf Response.Write "<input name='GroupSetting24' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(24)), 1) & ">发表信息时HTML编辑器为高级模式（默认为简洁模式）<br>" & vbCrLf Response.Write "每天最多发布<input name='GroupSetting3' type='text' value='" & GroupSetting(3) & "' size='6' maxlength='6' style='text-align: center;'>条信息（不想限制请设置为<b>0</b>）。<br>" Response.Write "发布信息时获取积分为栏目设置的<input name='GroupSetting4' type='text' value='" & GroupSetting(4) & "' size='5' maxlength='5' style='text-align: center;'>倍<br>" Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>评论权限：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting5' type='checkbox'" & RadioValue(PE_CLng(GroupSetting(5)), 1) & ">在禁止发表评论的栏目里仍然可发表评论<br><input name='GroupSetting6' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(6)), 1) & ">在评论需要审核的栏目里发表评论不需要审核</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>短消息权限：</td>" & vbCrLf Response.Write " <td>每次最多可同时向<input name='GroupSetting7' type='text' value='" & GroupSetting(7) & "' size='4' maxlength='4' style='text-align: center;'>人发送短消息（如果为0，则不允许发送短消息）</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>收藏夹权限：</td>" & vbCrLf Response.Write " <td>会员收藏夹内最多可收录<input name='GroupSetting8' type='text' value='" & GroupSetting(8) & "' size='5' maxlength='5' style='text-align: center;'>条信息（如果为0，则没有收藏权限）</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>上传文件权限：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting9' type='checkbox'" & RadioValue(PE_CLng(GroupSetting(9)), 1) & ">允许在开放上传的频道上传文件<br>最大允许上传<input name='GroupSetting10' type='text' value='" & GroupSetting(10) & "' size='5' style='text-align: center;'>K的文件（当所设置值大于某一频道的设置时，以频道设置为准。）</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>商城权限：</td>" & vbCrLf Response.Write " <td>购物时可以享受的折扣率：<input name='GroupSetting11' type='text' value='" & GroupSetting(11) & "' size='5' maxlength='5' style='text-align: center;'>%<br>" Response.Write "<input name='GroupSetting12' type='checkbox'" & RadioValue(PE_CLng(GroupSetting(12)), 1) & ">是否可以享受折上折优惠（对指定会员价的商品无效）<br> 允许透支的最大额度：<input name='GroupSetting13' type='text' value='" & GroupSetting(13) & "' size='6' maxsize='6' style='text-align: center;'>元人民币" & vbCrLf Response.Write " <br><input name='GroupSetting30' type='checkbox'" & RadioValue(PE_CLng(GroupSetting(30)), 1) & ">是否可以批发商品<br>" Response.Write " </td></tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>计费方式：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting14' type='radio' " & RadioValue(PE_CLng(GroupSetting(14)), 0) & ">只判断" & PointName & "：有" & PointName & "时，即使有效期已经到期，仍可以查看收费内容；" & PointName & "用完后，即使有效期没有到期，也不能查看收费内容。<br>" & vbCrLf Response.Write " <input type='radio' name='GroupSetting14' " & RadioValue(PE_CLng(GroupSetting(14)), 1) & ">只判断有效期：只要在有效期内，" & PointName & "用完后仍可以查看收费内容；过期后，即使会员有" & PointName & "也不能查看收费内容。<br>" & vbCrLf Response.Write " <input type='radio' name='GroupSetting14' " & RadioValue(PE_CLng(GroupSetting(14)), 2) & ">同时判断" & PointName & "和有效期：" & PointName & "用完或有效期到期后，就不可查看收费内容。<br>" & vbCrLf Response.Write " <input type='radio' name='GroupSetting14' " & RadioValue(PE_CLng(GroupSetting(14)), 3) & ">同时判断" & PointName & "和有效期：" & PointName & "用完并且有效期到期后，才不能查看收费内容。" & vbCrLf Response.Write " </td>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>扣" & PointName & "方式：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting15' type='radio' " & RadioValue(PE_CLng(GroupSetting(15)), 0) & ">有效期内，查看收费内容不扣" & PointName & "，也不做记录。<br>" & vbCrLf Response.Write " <input type='radio' name='GroupSetting15' " & RadioValue(PE_CLng(GroupSetting(15)), 1) & ">有效期内，查看收费内容不扣" & PointName & "，但做记录。<br>" & vbCrLf Response.Write " <input type='radio' name='GroupSetting15' " & RadioValue(PE_CLng(GroupSetting(15)), 2) & ">有效期内，查看收费内容也扣" & PointName & "。<br>" & vbCrLf Response.Write "有效期内，总共可以看<input name='GroupSetting16' type='text' value='" & GroupSetting(16) & "' size='10' maxlength='10' style='text-align: center;'> 条收费信息（如果为0，则不限制）<br>" & vbCrLf Response.Write "有效期内，每天最多可以看<input name='GroupSetting17' type='text' value='" & GroupSetting(17) & "' size='10' maxlength='10' style='text-align: center;'> 条收费信息（如果为0，则不限制）" & vbCrLf Response.Write " </td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>自助充值：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting18' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(18)), 1) & ">允许自助兑换" & PointName & "<br><input name='GroupSetting19' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(19)), 1) & ">允许自助兑换有效期<br><input name='GroupSetting20' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(20)), 1) & ">允许将" & PointName & "赠送给他人</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>聚合空间：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting25' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(25)), 1) & ">启用聚合空间<br>" & vbCrLf Response.Write " <input name='GroupSetting26' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(26)), 1) & ">聚合空间无须审核<br>" & vbCrLf Response.Write " 聚合空间最大容量为:<input name='GroupSetting27' type='text' value='" & GroupSetting(27) & "' size='4' maxlength='10' style='text-align: center;'>M<br>" & vbCrLf Response.Write " <input name='GroupSetting28' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(28)), 1) & ">用户可以自主更换皮肤" & vbCrLf Response.Write " </td></tr>" & vbCrLf Else Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>发布权限：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting1' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(1)), 1) & ">在发布信息需要审核的频道，此组会员发布信息不需要审核<br>" & vbCrLf Response.Write "<input name='GroupSetting21' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(21)), 1) & ">发表信息时可以设置标题前缀<br>" & vbCrLf Response.Write "<input name='GroupSetting22' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(22)), 1) & ">发表信息时可以设置是否显示评论链接<br>" & vbCrLf Response.Write "<input name='GroupSetting23' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(23)), 1) & ">发表信息时可以设置转向链接<br>" & vbCrLf Response.Write "<input name='GroupSetting24' type='checkbox' " & RadioValue(PE_CLng(GroupSetting(24)), 1) & ">发表信息时HTML编辑器为高级模式（默认为简洁模式）<br>" & vbCrLf Response.Write "每天最多发布<input name='GroupSetting3' type='text' value='" & GroupSetting(3) & "' size='6' maxlength='6' style='text-align: center;'>条信息（不想限制请设置为<b>0</b>）。<br>" Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='15%' class='tdbg5' align='right'>上传文件权限：</td>" & vbCrLf Response.Write " <td><input name='GroupSetting9' type='checkbox'" & RadioValue(PE_CLng(GroupSetting(9)), 1) & ">允许在开放上传的频道上传文件<br>最大允许上传<input name='GroupSetting10' type='text' value='" & GroupSetting(10) & "' size='5' style='text-align: center;'>K的文件（当所设置值大于某一频道的设置时，以频道设置为准。）</td>" & vbCrLf Response.Write " </tr>" & vbCrLf End If Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td colspan='3'>" & vbCrLf Response.Write " <table width='100%' border='0' cellspacing='10' cellpadding='0'>" & vbCrLf Response.Write " <tr>" & vbCrLf Response.Write " <td colspan='2' align='center'>频 道 权 限 详 细 设 置</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Dim rsChannel, arrPurviews, IsNoPurview arrPurviews = rsUserGroup("arrClass_Browse") & "," & rsUserGroup("arrClass_View") & "," & rsUserGroup("arrClass_Input") If rsUserGroup("GroupID")<>-1 Then Set rsChannel = Conn.Execute("SELECT ChannelID,ChannelName,ChannelShortName,ChannelDir FROM PE_Channel WHERE ChannelType<=1 AND ModuleType<>4 And ModuleType<>5 and ModuleType<>7 and ModuleType<>8 AND Disabled=" & PE_False & " ORDER BY OrderID") Else Set rsChannel = Conn.Execute("SELECT ChannelID,ChannelName,ChannelShortName,ChannelDir FROM PE_Channel WHERE ChannelType<=1 AND ModuleType=1 AND Disabled=" & PE_False & " ORDER BY OrderID") End If Do While Not rsChannel.EOF IsNoPurview = FoundInArr(arrPurviews, rsChannel("ChannelDir") & "none", ",") Response.Write " <tr valign='top'>" & vbCrLf Response.Write " <td><fieldset>" & vbCrLf Response.Write " <legend>此会员组在【<font color='red'>" & rsChannel("ChannelName") & "</font>】频道的权限：</legend>" & vbCrLf Response.Write " <table width='100%' cellspacing='1'>" & vbCrLf Response.Write " <tr class='tdbg'>" & vbCrLf Response.Write " <td width='50%'><input type='radio' name='" & rsChannel("ChannelDir") & "purview' onClick=""table" & rsChannel("ChannelID") & ".style.display='none'""" If IsNoPurview = True Then Response.Write "checked" Response.Write ">无任何权限(开放栏目除外)" Response.Write " <input type='radio' name='" & rsChannel("ChannelDir") & "purview' onClick=""table" & rsChannel("ChannelID") & ".style.display='block'""" If IsNoPurview = False Then Response.Write "checked" Response.Write ">设置会员在该频道的权限</td>" & vbCrLf Response.Write " <td></td>" & vbCrLf Response.Write " <tr class='tdbg' id='table" & rsChannel("ChannelID") & "' style='display:" If IsNoPurview = True Then Response.Write "none" Else Response.Write "block" End If Response.Write "'>" & vbCrLf Response.Write " <td width='50%'>" & vbCrLf Response.Write " <iframe id='frm" & rsChannel("ChannelDir") & "' height='200' width='100%' src='Admin_SetClassPurview.asp?ManageType=Group&Action=Modify&ChannelID=" & rsChannel("ChannelID") & "&GroupID=" & GroupID & "'></iframe>" & vbCrLf Response.Write " <input name='arrClass_Browse_" & rsChannel("ChannelDir") & "' type='hidden' id='arrClass_Browse_" & rsChannel("ChannelDir") & "' value='" & rsChannel("ChannelDir") & "none'>" & vbCrLf Response.Write " <input name='arrClass_View_" & rsChannel("ChannelDir") & "' type='hidden' id='arrClass_View_" & rsChannel("ChannelDir") & "' value='" & rsChannel("ChannelDir") & "none'>" & vbCrLf Response.Write " <input name='arrClass_Input_" & rsChannel("ChannelDir") & "' type='hidden' id='arrClass_Input_" & rsChannel("ChannelDir") & "' value='" & rsChannel("ChannelDir") & "none'></td>" & vbCrLf Response.Write " <td width='50%'><font color='#0000FF'>注：</font><br>1、栏目权限采用继承制度，即在某一栏目拥有某项权限，则在此栏目的所有子栏目中都拥有这项权限，并可在子栏目中指定更多的权限。<br>2、灰色并且选中的项目，说明该栏目为开放栏目，会员组在此栏目拥有浏览和查看权限。<br><br><font color='red'>权限含义：</font><br>浏览－－指可以浏览此栏目的信息列表<br>查看－－指可以查看此栏目中的信息的内容<br>发布－－指可以在此栏目中发布信息</td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " </table>" & vbCrLf Response.Write " </fieldset></td>" & vbCrLf Response.Write " </tr>" & vbCrLf rsChannel.MoveNext Loop rsChannel.Close Set rsChannel = Nothing Response.Write " <tr>" & vbCrLf Response.Write " <td align='center'>" & vbCrLf Response.Write " <input type='hidden' name='GroupID' value='" & rsUserGroup("GroupID") & "'>" & vbCrLf Response.Write " <input type='hidden' name='Action' value='SaveModify'>" & vbCrLf Response.Write " <input type='submit' value='保存修改结果'>" & vbCrLf Response.Write " <input type='button' name='cancel' value=' 取 消 ' onClick=""JavaScript:window.location.href='Admin_UserGroup.asp'"">" & vbCrLf Response.Write " </td>" & vbCrLf Response.Write " </tr>" & vbCrLf Response.Write " </table>" & vbCrLf Response.Write "</form>" & vbCrLf End Sub Sub Del() Dim id ID = PE_CLng(Trim(Request("ID"))) If GroupID = 1 Then FoundErr = True ErrMsg = ErrMsg & "<li>不能删除</li>" Exit Sub End If Conn.Execute ("delete from PE_Zxbm where ID=" & ID ) Call main End Sub Sub SaveGroup() Dim GroupType, strValue, GroupIntro, i Dim rsUserGroup, rsChannel, GroupPurview, GroupPurviewChannel Dim arrClass_Browse, arrClass_View, arrClass_Input GroupID = Trim(Request.Form("GroupID")) GroupName = Trim(Request.Form("GroupName")) GroupIntro = Trim(Request.Form("GroupIntro")) GroupType = Trim(Request.Form("GroupType")) FoundErr = False If GroupName = "" Then FoundErr = True ErrMsg = ErrMsg & "<li>会员组名称不能为空</li>" Exit Sub Else GroupName = ReplaceBadChar(GroupName) End If If GroupType = "" Then GroupType = 0 Else GroupType = CLng(GroupType) End If GroupSetting = "" For i = 0 To 30 strValue = Trim(Request.Form("GroupSetting" & i & "")) If strValue = "" Or (Not IsNumeric(strValue)) Then strValue = "0" End If If GroupSetting = "" Then GroupSetting = strValue Else GroupSetting = GroupSetting & "," & strValue End If Next arrClass_Browse = "" arrClass_View = "" arrClass_Input = "" Dim tBrowse, tView, tInput, ChannelDir If PE_Clng(GroupID)<>-1 then Set rsChannel = Conn.Execute("SELECT ChannelDir FROM PE_Channel WHERE ChannelType<=1 And ModuleType<>4 And ModuleType<>5 And Disabled=" & PE_False & " ORDER BY OrderID") Else Set rsChannel = Conn.Execute("SELECT ChannelDir FROM PE_Channel WHERE ChannelType<=1 And ModuleType=1 And Disabled=" & PE_False & " ORDER BY OrderID") End If Do While Not rsChannel.EOF ChannelDir = rsChannel(0) tBrowse = ReplaceBadChar(Trim(Request.Form("arrClass_Browse_" & ChannelDir))) tView = ReplaceBadChar(Trim(Request.Form("arrClass_View_" & ChannelDir))) tInput = ReplaceBadChar(Trim(Request.Form("arrClass_Input_" & ChannelDir))) If tBrowse = "" And tView = "" And tInput = "" Then If arrClass_Browse = "" Then arrClass_Browse = ChannelDir & "none" Else arrClass_Browse = arrClass_Browse & "," & ChannelDir & "none" End If If arrClass_View = "" Then arrClass_View = ChannelDir & "none" Else arrClass_View = arrClass_View & "," & ChannelDir & "none" End If If arrClass_View = "" Then arrClass_View = ChannelDir & "none" Else arrClass_View = arrClass_View & "," & ChannelDir & "none" End If Else If tBrowse <> "" Then If arrClass_Browse = "" Then arrClass_Browse = tBrowse Else arrClass_Browse = arrClass_Browse & "," & tBrowse End If End If If tView <> "" Then If arrClass_View = "" Then arrClass_View = tView Else arrClass_View = arrClass_View & "," & tView End If End If If tInput <> "" Then If arrClass_Input = "" Then arrClass_Input = tInput Else arrClass_Input = arrClass_Input & "," & tInput End If End If End If rsChannel.MoveNext Loop Set rsChannel = Nothing Set rsUserGroup = Server.CreateObject("Adodb.Recordset") If Action = "SaveAdd" Then rsUserGroup.Open "SELECT * FROM PE_UserGroup WHERE GroupName='" & GroupName & "'", Conn, 1, 3 If Not (rsUserGroup.BOF And rsUserGroup.EOF) Then FoundErr = True ErrMsg = ErrMsg & "<li>数据库中已有同名会员组！</li>" Else rsUserGroup.addnew rsUserGroup("GroupID") = PE_CLng(Conn.Execute("select max(GroupID) from PE_UserGroup")(0)) + 1 End If Else rsUserGroup.Open "SELECT * FROM PE_UserGroup WHERE GroupID=" & GroupID, Conn, 1, 3 If rsUserGroup.BOF And rsUserGroup.EOF Then FoundErr = True ErrMsg = ErrMsg & "<li>数据库没有发现此会员组！</li>" End If End If If FoundErr = True Then rsUserGroup.Close Set rsUserGroup = Nothing Exit Sub End If rsUserGroup("GroupName") = GroupName rsUserGroup("GroupIntro") = GroupIntro If GroupType > 0 Then rsUserGroup("GroupType") = GroupType End If rsUserGroup("GroupSetting") = GroupSetting rsUserGroup("arrClass_Browse") = arrClass_Browse rsUserGroup("arrClass_View") = arrClass_View rsUserGroup("arrClass_Input") = arrClass_Input rsUserGroup.Update rsUserGroup.Close Set rsUserGroup = Nothing Call main End Sub Function GetGroupNum(iGroupID) If Not IsNumeric(iGroupID) Then Exit Function Dim rsUserGroup Set rsUserGroup = Conn.Execute("SELECT Count(UserID) FROM PE_User WHERE GroupID=" & iGroupID & "") If IsNull(rsUserGroup(0)) Then GetGroupNum = 0 Else GetGroupNum = rsUserGroup(0) End If Set rsUserGroup = Nothing End Function %>
Admin_Zxbm_xz.asp
1 <!--#include file="Admin_Common.asp"-->
2 <%
3 Const NeedCheckComeUrl =True'是否需要检查外部访问
4
5 Const PurviewLevel =2'0--不检查，1--超级管理员，2--普通管理员
6 Const PurviewLevel_Channel =0'0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
7 Dim Result
8
9 Result = request.QueryString("Result")
10
11 Dim ID
12 Dim rs, Sql, i, StudentName, StudentClass, ParentsName, Tel, Mail, Content
13 ID = request.QueryString("ID")
14 call ZxbmEdit()
15 Response.Write "<html>"& vbCrLf
16 Response.Write "<head>"& vbCrLf
17 Response.Write "<title>网上管理</title>"& vbCrLf
18 Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"& vbCrLf
19 Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>"& vbCrLf
20 Response.Write "</head>"& vbCrLf
21 Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>"& vbCrLf
22 Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"& vbCrLf
23 Call ShowPageTitle("网 上 报 名 管 理", 10043)
24 Response.Write " <tr class='tdbg'>"& vbCrLf
25 Response.Write " <td width='70' height='30'>管理导航：</td>"& vbCrLf
26 Response.Write " <td height='30'><a href='Admin_Zxbm.asp'>网上报名管理首页</a> | <a href='Admin_Zxbm_xz.asp?Result=Add'>新增报名</a> </td>"& vbCrLf
27 Response.Write " </tr>"& vbCrLf
28 Response.Write "</table>"& vbCrLf
29 %>
30 <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
31 <form method="post" action="Admin_Zxbm_xz.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>" name="form1" onSubmit="javascript:return CheckSubmit();">
32 <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
33 <tr class='title'>
34 <td height='22' colspan='3'><div align='center'>【<%If Result = "Add" then%>添加<%ElseIf Result = "Modify" then%>修改<%ElseIf Result = "Look" then%>查看<%End If%>在线报名】</div></td>
35 </tr>
36 <tr class='tdbg'>
37 <td width='15%' class='tdbg5' align='right'>学生姓名：</td>
38 <td><input name='StudentName' type='text' id='StudentName' size='30' maxlength='20' value="<%=Studentname%>" <%if result = "Look" Then%>disabled<%End if%>><font color='#FF0000'>*</font></td>
39 </tr>
40 <tr class='tdbg'>
41 <td width='15%' class='tdbg5' align='right'>学生年级：</td>
42 <td><input name='StudentClass' type='text' id='StudentClass' size='30' maxlength='20' value="<%=StudentClass%>" <%if result = "Look" Then%>disabled<%End if%>><font color='#FF0000'>*</font></td>
43 </tr>
44 <tr class='tdbg'>
45 <td width='15%' class='tdbg5' align='right'>家长姓名：</td>
46 <td><input name='ParentsName' type='text' id='ParentsName' size='30' maxlength='20' value="<%=ParentsName%>" <%if result = "Look" Then%>disabled<%End if%>><font color='#FF0000'>*</font></td>
47 </tr>
48 <tr class='tdbg'>
49 <td width='15%' class='tdbg5' align='right'>电话号码：</td>
50 <td><input name='Tel' type='text' id='Tel' size='30' maxlength='20' value="<%=Tel%>" <%if result = "Look" Then%>disabled<%End if%>><font color='#FF0000'>*</font>
51 </td>
52 </tr>
53 <tr class='tdbg'>
54 <td width='15%' class='tdbg5' align='right'>电子邮件：</td>
55 <td><input name='Mail' type='text' id='Mail' size='30' maxlength='20' value="<%=Mail%>" <%if result = "Look" Then%>disabled<%End if%>></td>
56 </tr>
57 <tr class='tdbg'>
58 <td width='15%' class='tdbg5' align='right'>备注：</td>
59 <td><textarea name="Content" id="Content" rows="4" style="width:350"<%if result ="Look"Then%>disabled<%Endif%>><%=Content%></textarea>
60 </td>
61 </tr>
62 <tr>
63 <td align='center' colspan="2">
64 <input type='submit' value=' 设 置 ' <%if result = "Look" Then%>disabled<%End if%>>
65 <input type='button' name='cancel' value=' 取 消 ' onClick="JavaScript:window.location.href='Admin_Zxbm.asp'">
66 </td>
67 </tr>
68 </table>
69 </form>
70 </table>
71 <%
72 Sub ZxbmEdit()
73 Dim Action, rs, sql
74 Action = request.QueryString("Action")
75 If Action ="SaveEdit"Then
76 Set rs = server.CreateObject("adodb.recordset")
77 IfLen(Trim(request.Form("StudentName")))<1Then
78 response.Write ("<script language='javascript'>alert('请填写学生姓名！');history.back(-1);</script>")
79 response.End
80 EndIf
81 IfLen(Trim(request.Form("StudentClass")))<1Then
82 response.Write ("<script language='javascript'>alert('请填写学生年级！');history.back(-1);</script>")
83 response.End
84 EndIf
85 IfLen(Trim(request.Form("ParentsName")))<1Then
86 response.Write ("<script language='javascript'>alert('请填写家长姓名！');history.back(-1);</script>")
87 response.End
88 EndIf
89 IfLen(Trim(request.Form("Tel")))<1Then
90 response.Write ("<script language='javascript'>alert('请填写电话号码！');history.back(-1);</script>")
91 response.End
92 EndIf
93 If Result ="Add"Then
94 sql ="select * from PE_Zxbm"
95 rs.Open sql, conn, 1, 3
96 rs.addnew
97 rs("StudentName") =Trim(Request.Form("StudentName"))
98 rs("StudentClass") =Trim(Request.Form("StudentClass"))
99 rs("ParentsName") =Trim(Request.Form("ParentsName"))
100 rs("Tel") =Trim(Request.Form("Tel"))
101 rs("Mail") =Trim(Request.Form("Mail"))
102 rs("Content") =Trim(Request.Form("Content"))
103 rs("AddTime") =Now()
104 rs.update
105 rs.Close
106 Set rs =Nothing
107 Set rs = server.CreateObject("adodb.recordset")
108 sql ="select top 1 ID from PE_Zxbm order by ID desc"
109 rs.Open sql, conn, 1, 1
110 ID = rs("ID")
111 rs.Close
112 Set rs =Nothing
113 EndIf
114 If Result ="Modify"Then
115 sql ="select * from PE_Zxbm where ID="&ID
116 rs.Open sql, conn, 1, 3
117 rs("StudentName") =Trim(Request.Form("StudentName"))
118 rs("StudentClass") =Trim(Request.Form("StudentClass"))
119 rs("ParentsName") =Trim(Request.Form("ParentsName"))
120 rs("Tel") =Trim(Request.Form("Tel"))
121 rs("Mail") =Trim(Request.Form("Mail"))
122 rs("Content") =Trim(Request.Form("Content"))
123 rs.update
124 rs.Close
125 Set rs =Nothing
126 EndIf
127 response.Write "<script language='javascript'>alert('设置成功！');location.replace('Admin_Zxbm.asp');</script>"
128 Else
129 If Result ="Modify"Then
130 Set rs = server.CreateObject("adodb.recordset")
131 sql ="select * from PE_Zxbm where ID="& ID
132 rs.Open sql, conn, 1, 1
133 If rs.bof And rs.EOF Then
134 response.Write ("<center>数据库记录读取错误！</center>")
135 response.End
136 EndIf
137 StudentName = rs("StudentName")
138 StudentClass = rs("StudentClass")
139 ParentsName = rs("ParentsName")
140 Tel = rs("Tel")
141 Mail = rs("Mail")
142 Content = rs("Content")
143 rs.Close
144 Set rs =Nothing
145 EndIf
146 If Result ="Look"Then
147 Set rs = server.CreateObject("adodb.recordset")
148 sql ="select * from PE_Zxbm where ID="& ID
149 rs.Open sql, conn, 1, 1
150 If rs.bof And rs.EOF Then
151 response.Write ("<center>数据库记录读取错误！</center>")
152 response.End
153 EndIf
154 StudentName = rs("StudentName")
155 StudentClass = rs("StudentClass")
156 ParentsName = rs("ParentsName")
157 Tel = rs("Tel")
158 Mail = rs("Mail")
159 Content = rs("Content")
160 rs.Close
161 Set rs =Nothing
162 Endif
163 EndIf
164 End Sub
165 %>
DelContent.Asp
1 <!--#include file="../Start.asp"--><!--动易系统做修改插件或其他时，必须带有此文件-->
2 <%
3 Dim Result, Selectid
4 Dim ix, tempx, selectx, len_idx
5 Result = request.QueryString("Result")
6 SelectID = request.Form("SelectID")
7 SelectCase Result
8 Case"Zxbm"
9 SelectCaseTrim(Request.Form("batch"))
10 Case"删除所选"
11 If SelectID<>""Then conn.Execute "delete from PE_Zxbm where id in ("&SelectID&")"
12 response.redirect request.servervariables("http_referer")
13 EndSelect
14 Case"Message"
15 SelectCaseTrim(Request.Form("batch"))
16 Case"批量已阅"
17 If SelectID<>""Then conn.Execute "update Howia_Message set ViewFlag = 1 where id in ("&SelectID&")"
18 response.redirect request.servervariables("http_referer")
19 Case"批量未阅"
20 If SelectID<>""Then conn.Execute "update Howia_Message set ViewFlag = 0 where id in ("&SelectID&")"
21 response.redirect request.servervariables("http_referer")
22 Case"删除所选"
23 If SelectID<>""Then conn.Execute "delete from Howia_Message where id in ("&SelectID&")"
24 response.redirect request.servervariables("http_referer")
25 EndSelect
26 Case"News"
27 SelectCaseTrim(Request.Form("batch"))
28 Case"批量发布"
29 If SelectID<>""Then conn.Execute "update Howia_News set ViewFlag = 1 where id in ("&SelectID&")"
30 response.redirect request.servervariables("http_referer")
31 Case"批量未发布"
32 If SelectID<>""Then conn.Execute "update Howia_News set ViewFlag = 0 where id in ("&SelectID&")"
33 response.redirect request.servervariables("http_referer")
34 Case"删除所选"
35 If SelectID<>""Then conn.Execute "delete from Howia_News where id in ("&SelectID&")"
36 response.redirect request.servervariables("http_referer")
37 EndSelect
38 Case"FriendLink"
39 SelectCaseTrim(Request.Form("batch"))
40 Case"批量生效"
41 If SelectID<>""Then conn.Execute "update Howia_FriendLink set ViewFlag = 1 where id in ("&SelectID&")"
42 response.redirect request.servervariables("http_referer")
43 Case"批量失效"
44 If SelectID<>""Then conn.Execute "update Howia_FriendLink set ViewFlag = 0 where id in ("&SelectID&")"
45 response.redirect request.servervariables("http_referer")
46 Case"删除所选"
47 If SelectID<>""Then conn.Execute "delete from Howia_FriendLink where id in ("&SelectID&")"
48 response.redirect request.servervariables("http_referer")
49 EndSelect
50 Case"Others"
51 SelectCaseTrim(Request.Form("batch"))
52 Case"批量生效"
53 If SelectID<>""Then conn.Execute "update Howia_Others set ViewFlag = 1 where id in ("&SelectID&")"
54 response.redirect request.servervariables("http_referer")
55 Case"批量失效"
56 If SelectID<>""Then conn.Execute "update Howia_Others set ViewFlag = 0 where id in ("&SelectID&")"
57 response.redirect request.servervariables("http_referer")
58 Case"删除所选"
59 If SelectID<>""Then conn.Execute "delete from Howia_Others where id in ("&SelectID&")"
60 If ISHTML =1Then
61 ix =0
62 SelectID =Replace(SelectID, "", "")
63 len_idx =Len(SelectID)
64 tempx = tempx&Left(SelectID, 1)
65 DoWhile ix<len_idx
66 ix = ix +1
67 tempx =Left(SelectID, 1)
68 If tempx =","Then
69 Call DoDelslhtml(""&OtherName&""&Separated&""&selectx&"."&HTMLName&"")
70 selectx =""
71 Else
72 selectx = selectx&tempx
73 EndIf
74 If len_idx - ix =0ThenCall DoDelslhtml(""&OtherName&""&Separated&""&selectx&"."&HTMLName&"")
75 SelectID =Right(SelectID, len_idx - ix)
76 Loop
77 EndIf
78 response.redirect request.servervariables("http_referer")
79 EndSelect
80 CaseElse
81 EndSelect
82 %>
数据库
转载请注明出处：http://www.cnblogs.com/tangge/archive/2011/06/17/2083595.html 【唐】三三
浙公网安备 33010602011771号