自己做的动易在线报名系统 PW2006

前台

ShowPage.asp?id=xx 【自定义页面】

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<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 
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

View Code

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

+ View Code?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562

<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

View Code

1 
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

View Code

1 
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 %>