开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
MemGroup.asp
资源名称：52ccc55a371572d86a7d2c6992a2591b.rar　[点击查看]
上传用户：dbstep
上传日期：2022-08-06
资源大小：2803k
文件大小：15k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

MemGroup.asp：源码内容
  1. <HTML xmlns="http://www.w3.org/1999/xhtml">
  2. <HEAD>
  3. <TITLE>会员组别</TITLE>
  4. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  5. <link rel="stylesheet" href="Images/CssAdmin.css">
  6. <script language="javascript" src="../skweb/JS/Admin.js"></script></HEAD>
  7. <!--#include file="../skweb/Const.asp" -->
  8. <!--#include file="../skweb/ConnSiteData.asp" -->
  9. <!--#include file="CheckAdmin.asp"-->
  10. <%
  11. if Instr(session("AdminPurview"),"|105,")=0 then 
  12.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  13.   response.end
  14. end if
  15. '========判断是否具有管理权限
  16. %>
  17. <BODY>
  18. <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  19.   <tr>
  20.     <td height="29" nowrap background="Images/menutitle.gif"> 
  21.       <table width="470" border="0" cellspacing="0" cellpadding="0">
  22.         <tr>
  23.           <td width="121"><strong><font color="#000000" size="2">会员管理</font></strong></td>
  24.           <td width="87"><a href="MemEdit.asp?Result=Add"><img src="Images/xx4.gif" width="52" height="17" border="0"></a></td>
  25.           <td width="87"><a href="MemList.asp"><img src="Images/xx3.gif" width="52" height="17" border="0"></a></td>
  26.           <td width="87"><a href="MemGroup.asp"><img src="Images/xx7.gif" width="52" height="17" border="0"></a></td>
  27.           <td width="88"><a href="MemGroup.asp?Result=Add"><img src="Images/xx5.gif" width="52" height="17" border="0"></a></td>
  28.         </tr>
  29.       </table></td>
  30.   </tr>
  31. </table>
  32.  
  33. <% 
  34. dim Result
  35. Result=request.QueryString("Result")
  36. dim ID,GroupID,GroupName,GroupLevel,Explain,AddTime,RanNum
  37. ID=request.QueryString("ID")
  38. randomize timer
  39. RanNum=Int((8999)*Rnd +1009)
  40. if ID="" then GroupID=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&RanNum
  41. if Result<>"" then
  42.   call MemGroupEdit() 
  43. end if
  44. %>
  45. <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  46.   <form action="DelContent.asp?Result=MemGroup" method="post" name="formDel" >
  47.     <tr>
  48.       <td width="30" height="24" nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>ID</strong></font></td>
  49.       <td width="120" nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>会员组别号</strong></font></td>
  50.       <td width="68" nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>组别名称</strong></font></td>
  51.       <td width="46" nowrap background="Images/tn.gif"><strong><font color="#FFFFFF">权限值</font></strong></td>
  52.       <td nowrap background="Images/tn.gif"><strong><font color="#FFFFFF">说明</font></strong></td>
  53.       <td width="118" nowrap background="Images/tn.gif"><strong><font color="#FFFFFF"><strong>创建时间</strong></font></strong></td>
  54.       <td width="76" colspan="2" nowrap background="Images/tn.gif"><strong><font color="#FFFFFF">操作</font></strong>
  55.       <input onClick="CheckAll(this.form)" name="buttonAllSelect" type="button" class="button"  id="submitAllSearch" value="全" style="HEIGHT: 18px;WIDTH: 16px;">
  56.       <input onClick="CheckOthers(this.form)" name="buttonOtherSelect" type="button" class="button"  id="submitOtherSelect" value="反" style="HEIGHT: 18px;WIDTH: 16px;">      </td>
  57.     </tr>
  58. <% MemGroupList() %>
  59.   </form>
  60. </table>
  61. </BODY>
  62. </HTML>
  63. <%
  64. sub MemGroupEdit()
  65.   dim Action,rs,sql
  66.   Action=request.QueryString("Action")
  67.   if Action="SaveEdit" then '保存编辑会员组别信息
  68.     set rs = server.createobject("adodb.recordset")
  69.     if Result="Add" then '创建会员组别
  70.   sql="select * from sk_MemGroup"
  71.       rs.open sql,conn,1,3
  72.       rs.addnew
  73.       if len(trim(Request.Form("GroupName")))<3 or len(trim(Request.Form("GroupName")))>16  then
  74.         response.write "<script language=javascript> alert('会员组别名称必填，且字符数为6-16字符，3-8个汉字！');history.back(-1);</script>"
  75.         response.end
  76.       end if
  77.   rs("GroupID")=Request.Form("GroupID")
  78.   rs("GroupName")=trim(Request.Form("GroupName"))
  79.   rs("GroupLevel")=trim(Request.Form("GroupLevel"))
  80.   rs("Explain")=trim(Request.Form("Explain"))
  81.   rs("AddTime")=now()
  82. end if  
  83. if Result="Modify" then '修改网站管理员
  84.       sql="select * from sk_MemGroup where ID="&ID
  85.       rs.open sql,conn,1,3
  86.       if len(trim(Request.Form("GroupName")))<3 or len(trim(Request.Form("GroupName")))>16  then
  87.         response.write "<script language=javascript> alert('会员组别名称必填，且字符数为6-16字符，3-8个汉字！');history.back(-1);</script>"
  88.         response.end
  89.       end if
  90.   rs("GroupName")=trim(Request.Form("GroupName"))
  91.   rs("GroupLevel")=trim(Request.Form("GroupLevel"))
  92.   rs("Explain")=trim(Request.Form("Explain"))
  93.       conn.execute("Update sk_Members set GroupName='"&trim(Request.Form("GroupName"))&"' where GroupID='"&trim(Request.Form("GroupID"))&"'")
  94. end if
  95. rs.update
  96. rs.close
  97.     set rs=nothing 
  98.       Response.Redirect("Tips/group.asp")
  99.   else '提取管理员信息
  100. if Result="Modify" then
  101.       set rs = server.createobject("adodb.recordset")
  102.       sql="select * from sk_MemGroup where ID="& ID
  103.       rs.open sql,conn,1,1
  104.   if rs.RecordCount=0 then
  105.         response.write "<script language=javascript> alert('数据库中无此记录，请确定返回！');history.back(-1)</script>"
  106.         response.end
  107.   end if
  108.   ID=rs("ID")
  109.       GroupID=rs("GroupID")
  110.   GroupName=rs("GroupName")
  111.   GroupLevel=rs("GroupLevel")
  112.   Explain=rs("Explain")
  113.   rs.close
  114.       set rs=nothing 
  115. end if
  116.   end if
  117. %>
  118. <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CC0000">
  119.   <form name="editMemGroup" method="post" action="MemGroup.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>" onSubmit="return CheckMemGroup()">
  120.   <tr>
  121.     <td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%" >
  123.       <tr>
  124.         <td width="120" height="20" align="right">&nbsp;</td>
  125.         <td>&nbsp;</td>
  126.       </tr>
  127.       <tr>
  128.         <td height="20" align="right">I D：</td>
  129.         <td><input name="ID" type="text" class="textfield" id="ID" style="WIDTH: 100;" value="<%if ID="" then response.write ("自动") else response.write (ID) end if%>" maxlength="6" readonly></td>
  130.       </tr>
  131.       <tr>
  132.         <td height="20" align="right">组&nbsp;别&nbsp;号：</td>
  133.         <td><input name="GroupID" type="text" class="textfield" id="GroupID" style="WIDTH: 140;" value="<%=GroupID%>" maxlength="18" readonly>&nbsp;*</td>
  134.       </tr>
  135.       <tr>
  136.         <td height="20" align="right">组别名称：</td>
  137.         <td><input name="GroupName" type="text" class="textfield" id="GroupName" style="WIDTH: 100;" value="<%=GroupName%>">&nbsp;*</td>
  138.       </tr>
  139.       <tr>
  140.         <td height="20" align="right">权&nbsp;限&nbsp;值：</td>
  141.         <td><input name="GroupLevel" type="text" class="textfield" id="GroupLevel" style="WIDTH: 100;" value="<%=GroupLevel%>" onChange="if(/D/.test(this.value)){alert('只能在权限值内输入整数！');}">&nbsp;*&nbsp;必须为整数</td>
  142.       </tr>
  144.       <tr>
  145.         <td height="20" align="right" valign="top">备注说明：</td>
  146.         <td><textarea name="Explain" cols="88" rows="3" class="textfield" id="Explain" style="WIDTH: 580;" ><%=Explain%></textarea></td>
  147.       </tr>
  149.       <tr>
  150.         <td height="30" align="right">&nbsp;</td>
  151.         <td valign="bottom"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 60;" ></td>
  152.       </tr>
  153.       <tr>
  154.         <td height="20" align="right">&nbsp;</td>
  155.         <td valign="bottom">&nbsp;</td>
  156.       </tr>
  157.     </table></td>
  158.   </tr>
  159.   </form>
  160. </table>
  161. <br>
  162. <%
  163. end sub
  164. '-----------------------------------------------------------
  165. function MemGroupList()
  166.   dim idCount'记录总数
  167.   dim pages'每页条数
  168.       pages=20
  169.   dim pagec'总页数
  170.   dim page'页码
  171.       page=clng(request("Page"))
  172.   dim pagenc '每页显示的分页页码数量=pagenc*2+1
  173.       pagenc=2
  174.   dim pagenmax '每页显示的分页的最大页码
  175.   dim pagenmin '每页显示的分页的最小页码
  176.   dim datafrom'数据表名
  177.       datafrom="sk_MemGroup"
  178.   dim datawhere'数据条件
  179.       datawhere=""
  180.   dim sqlid'本页需要用到的id
  181.   dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数
  182.       PATH_INFO = request.servervariables("PATH_INFO")
  183.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  184.       if QUERY_STRING = "" then
  185.     Myself = PATH_INFO & "?"
  186.   else
  187.    if Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  188.           Myself = PATH_INFO & "?" & QUERY_STRING & "&"
  189. else
  190.       Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  191. end if
  192.   end if
  193.   dim taxis'排序的语句 asc, desc
  194.       taxis="order by id asc"
  195.   dim i'用于循环的整数
  196.   dim rs,sql'sql语句
  197.   '获取记录总数
  198.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  199.   set rs=server.createobject("adodb.recordset")
  200.   rs.open sql,conn,0,1
  201.   idCount=rs("idCount")
  202.   '获取记录总数
  204.   if(idcount>0) then'如果记录总数=0,则不处理
  205.     if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
  206.   pagec=int(idcount/pages)'获取总页数
  207.     else
  208.       pagec=int(idcount/pages)+1'获取总页数
  209.     end if
  210. '获取本页需要用到的id============================================
  211.     '读取所有记录的id数值,因为只有id所以速度很快
  212.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  213.     set rs=server.createobject("adodb.recordset")
  214.     rs.open sql,conn,1,1
  215.     rs.pagesize = pages '每页显示记录数
  216.     if page < 1 then page = 1
  217.     if page > pagec then page = pagec
  218.     if pagec > 0 then rs.absolutepage = page  
  219.     for i=1 to rs.pagesize
  220.   if rs.eof then exit for  
  221.   if(i=1)then
  222.     sqlid=rs("id")
  223.   else
  224.     sqlid=sqlid &","&rs("id")
  225.   end if
  226.   rs.movenext
  227.     next
  228.   '获取本页需要用到的id结束============================================
  229.   end if
  230. '-----------------------------------------------------------
  231. '-----------------------------------------------------------
  232.   if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理
  233.     '用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
  234.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  235.     set rs=server.createobject("adodb.recordset")
  236.     rs.open sql,conn,0,1
  237.     while(not rs.eof)'填充数据到表格
  238.   Response.Write "<tr bgcolor='#EBF2F9' onMouseOver = ""this.style.backgroundColor = '#FFFFFF'"" onMouseOut = ""this.style.backgroundColor = ''"" style='cursor:hand'>" & vbCrLf
  239.       Response.Write "<td nowrap>"&rs("ID")&"</td>" & vbCrLf
  240.       Response.Write "<td nowrap>"&rs("GroupID")&"</td>" & vbCrLf
  241.       Response.Write "<td nowrap>"&rs("GroupName")&"</td>" & vbCrLf
  242.       Response.Write "<td nowrap><font color='blue'>"&rs("GroupLevel")&"</font></td>" & vbCrLf
  243.   if len(rs("Explain"))>24 then
  244.         Response.Write "<td nowrap title='说明：&#13;"&rs("Explain")&"'>"&left(rs("Explain"),22)&"...</td>" & vbCrLf
  245.       else
  246.         Response.Write "<td nowrap title='说明：&#13;"&rs("Explain")&"'>"&rs("Explain")&"</td>" & vbCrLf
  247.       end if 
  248.       Response.Write "<td nowrap>"&rs("AddTime")&"</td>" & vbCrLf
  249.       Response.Write "<td width='40' nowrap><a href='MemGroup.asp?Result=Modify&ID="&rs("ID")&"' onClick='changeAdminFlag(""修改会员组别"")'><font color='#330099'>修改</font></a></td>" & vbCrLf
  250.       if rs("ID")=1 then
  251.     Response.Write "<td width='22' nowrap></td>" & vbCrLf
  252.       else
  253.       Response.Write "<td width='22' nowrap><input name='selectID' type='checkbox' value='"&rs("GroupID")&"' style='HEIGHT: 13px;WIDTH: 13px;'></td>" & vbCrLf
  254.       end if
  255.       Response.Write "</tr>" & vbCrLf
  256.   rs.movenext
  257.     wend
  258.     Response.Write "<tr>" & vbCrLf
  259.     Response.Write "<td colspan='6' nowrap  bgcolor='#EBF2F9'>&nbsp;</td>" & vbCrLf
  260.     Response.Write "<td nowrap colspan='2'  bgcolor='#EBF2F9'><input name='submitDelSelect' type='button' class='button'  id='submitDelSelect' value='删除所选'  onClick='ConfirmDel(""您真的要删除这些会员组别吗？"");'></td>" & vbCrLf
  261.     Response.Write "</tr>" & vbCrLf
  262.   else
  263.     response.write ("<tr><td height='50' align='center' colspan='8' nowrap  bgcolor='#EBF2F9'>暂无会员组别</td></tr>")
  264.   end if
  265. '-----------------------------------------------------------
  266. '-----------------------------------------------------------
  267.   Response.Write "<tr>" & vbCrLf
  268.   Response.Write "<td colspan='8' nowrap  bgcolor='#D7E4F7'>" & vbCrLf
  269.   Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
  270.   Response.Write "<tr>" & vbCrLf
  271.   Response.Write "<td>共计：<font color='#ff6600'>"&idcount&"</font>条记录&nbsp;页次：<font color='#ff6600'>"&page&"</font></strong>/"&pagec&"&nbsp;每页：<font color='#ff6600'>"&pages&"</font>条</td>" & vbCrLf
  272.   Response.Write "<td align='right'>" & vbCrLf
  273.   '设置分页页码开始===============================
  274.   pagenmin=page-pagenc '计算页码开始值
  275.   pagenmax=page+pagenc '计算页码结束值
  276.   if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1
  277.   if(page>1) then response.write ("<a href='"& myself &"Page=1'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>9</font></a>&nbsp;") '如果页码大于1则显示(第一页)
  278.   if(pagenmin>1) then response.write ("<a href='"& myself &"Page="& page-(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>7</font></a>&nbsp;") '如果页码开始值大于1则显示(更前)
  279.   if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数
  280.   for i = pagenmin to pagenmax'循环输出页码
  281. if(i=page) then
  282.   response.write ("&nbsp;<font color='#ff6600'>"& i &"</font>&nbsp;")
  283. else
  284.   response.write ("[<a href="& myself &"Page="& i &">"& i &"</a>]")
  285. end if
  286.   next
  287.   if(pagenmax<pagec) then response.write ("&nbsp;<a href='"& myself &"Page="& page+(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>8</font></a>&nbsp;") '如果页码结束值小于总页数则显示(更后)
  288.   if(page<pagec) then response.write ("<a href='"& myself &"Page="& pagec &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>:</font></a>&nbsp;") '如果页码小于总页数则显示(最后页)
  289.   '设置分页页码结束===============================
  290.   Response.Write "跳到：第&nbsp;<input name='SkipPage' onKeyDown='if(event.keyCode==13)event.returnValue=false' onchange=""if(/D/.test(this.value)){alert('只能在跳转目标页框内输入整数！');this.value='"&Page&"';}"" style='HEIGHT: 18px;WIDTH: 40px;'  type='text' class='textfield' value='"&Page&"'>&nbsp;页" & vbCrLf
  291.   Response.Write "<input style='HEIGHT: 18px;WIDTH: 20px;' name='submitSkip' type='button' class='button' onClick='GoPage("""&Myself&""")' value='GO'>" & vbCrLf
  292.   Response.Write "</td>" & vbCrLf
  293.   Response.Write "</tr>" & vbCrLf
  294.   Response.Write "</table>" & vbCrLf
  295.   rs.close
  296.   set rs=nothing
  297.   Response.Write "</td>" & vbCrLf  
  298.   Response.Write "</tr>" & vbCrLf
  299. '-----------------------------------------------------------
  300. '-----------------------------------------------------------
  301. end function 
  302. %>