admin_notes.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

    c_name_start=trim(request.form("c_name_start"))
    if not int_true(c_name_start) then c_name_start=1
    if int(c_name_start)<1 then c_name_start=1
    c_name_len=trim(request.form("c_name_len"))
    if not int_true(c_name_len) then c_name_len=0
    c_name_head=code_admin("c_name_head",1,10)
    c_pass_len=trim(request.form("c_pass_len"))
    if not int_true(c_pass_len) then c_pass_len=1
    if int(c_pass_len)<1 then c_pass_len=1
    c_emoney=trim(request.form("c_emoney"))
    if not int_true(c_emoney) then c_emoney=1
    if int(c_emoney)<1 then c_emoney=1
    'if c_name_head="" then
    '  call admin_error("您输入的 卡号头系数 不能为空！")
    '  exit sub
    'end if
    if int(c_num)<1 or int(c_num)>int(card_max_num) then
      call admin_error("您输入的 增加数量 小于1或大于"&card_max_num&"！")
      exit sub
    end if
    sql="select count(c_id) from cards where left(c_name,"&(len(c_name_head)+1)&")='"&c_name_head&"0' and len(c_name)="&c_name_len
    set rs=joekoe_cms.exec(sql,1)
    if rs(0)>0 then
      rs.close
      call admin_error("您输入的 卡号头系数（"&c_name_head&"）及卡号长度（"&c_name_len&"） 可能会引起卡号重复！")
      exit sub
    end if
    rs.close
    for i=c_name_start to (int(c_num)+int(c_name_start)-1)
      tmp1=card_format_var((c_name_len-len(c_name_head)-len(i)),"0")
      c_name=c_name_head&tmp1&i
      c_pass=card_rand_pass(c_pass_len)
      sql="insert into cards (c_name,c_pass,c_emoney,c_hidden) " & _
	  "values ('"&c_name&"','"&c_pass&"',"&c_emoney&",0)"
      call joekoe_cms.exec(sql,0)
    next
    call admin_msg("已成功生成"&c_num&"个会员卡号！","?jk_mod="&jk_mod,0)
    exit sub
  end if
  call form_first()
%>
<form name=add_frm action='?jk_mod=<%response.write jk_mod%>&action=rnd' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'>增加数量：</td>
<td width='80%'><input type=text name=c_num value='1' size=10> 个，一次最多增加<font class=red><%response.write card_max_num%></font>个</td>
</tr>
<tr>
<td>开始系数：</td>
<td><input type=text name=c_name_start value='1' size=10> 一般为1或上次生成数量+1</td>
</tr>
<tr>
<td>卡号长度：</td>
<td><select name=c_name_len sizs=1>
<option>6</option>
<option>8</option>
<option>10</option>
<option>12</option>
<option selected>15</option>
<option>18</option>
<option>20</option>
</select> 位</td>
</tr>
<tr>
<td>卡号头系数：</td>
<td><input type=text name=c_name_head value='C' alt='长度不能超过10' size=10 maxlength=10> 例：<font class=red>C</font>000000000023</td>
</tr>
<tr>
<td>密码长度：</td>
<td><select name=c_pass_len sizs=1>
<option>5</option>
<option>8</option>
<option selected>10</option>
<option>20</option>
</select> 位</td>
</tr>
<tr>
<td>充值货币数：</td>
<td><select name=c_emoney size=1>
<option>5</option>
<option>10</option>
<option>20</option>
<option>50</option>
<option>100</option>
</select> <%response.write joekoe_cms.web_unit%></td>
</tr>
<tr><td></td><td height=40><input type=submit value='批量生成会员卡'></td></tr>
</form>
<%
end sub

sub joekoe_chk_card()
  dim c_hidden
%>
  <form name=sel_form action='?jk_mod=<%response.write jk_mod%>&action=delete' method=post>
  <tr align=center>
  <td class=td width='7%'>序号</td>
  <td class=td width='30%'>卡号</td>
  <td class=td width='30%'>密码</td>
  <td class=td width='12%'><%response.write joekoe_cms.web_unit%></td>
  <td class=td width='16%'>相关属性</td>
  <td class=td width='5%'><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
  </tr>
<%
  sql="select count(c_id) from cards"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from cards order by c_id desc"
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
    id=rs("c_id")
    c_hidden=rs("c_hidden")
%>
  <tr align=center>
  <td class=tims><%response.write (viewpage-1)*nummer+i%></td>
  <td><%response.write rs("c_name")%></td>
  <td><%response.write rs("c_pass")%></td>
  <td class=red2><%response.write rs("c_emoney")%>&nbsp;</td>
  <td><%
    response.write pro_edit("?jk_mod="&jk_mod&"&action=edit&id="&id,"编辑该会员卡")&"&nbsp;"
    select case int(c_hidden)
    case 0
      response.write "<font class=gray>未使用</font>"
    case 1
      response.write "<font class=red>已使用</font>"
    case else
      response.write "<font class=blue>锁定</font>"
    end select
%></td>
  <td><input type=checkbox name=sel_id value='<%response.write id%>'></td>
  </tr>
<%
    rs.movenext
  next
  rs.close
%>
  <tr class=tr1>
  <td colspan=3>
现有<font class=red><%response.write rssum%></font>篇<%response.write tit_fir%>，
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
  </td>
  <td colspan=3 align=center>
执行
<select name=sel_type size=1>
<option value='删除'>删除</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
  </td>
  </tr>
  </form>
<%
end sub

sub joekoe_chk_emoney()
  dim sum_pay,e_ispay,e_ptim,sel_id,hdim,hnum,hid,hi,htype
  select case action
  case "handle"
    sel_id=trim(request.form("sel_id"))
    sel_id=replace(sel_id," ","")
    hdim=split(sel_id,",")
    hnum=ubound(hdim)
    for hi=0 to hnum
      hid=hdim(hi)
      if isnumeric(hid) then call joekoe_cms.exec("delete from notes_emoney where e_id="&hid,0)
    next
    call admin_msg("已成功删除了"&(hnum+1)&"条"&tit_fir,pageurl,1)
  case "clear"
    call joekoe_cms.exec("delete from notes_emoney where e_ispay=0 and datediff("&s_d&"d"&s_d&",e_tim,"&s_tim&")>7",0)
    call admin_msg("已成功清理未支付"&tit_fir,pageurl,1)
    exit sub
  end select
  call admin_td("购买"&joekoe_cms.web_unit&tit_fir)
  sql="select sum(e_amount) from notes_emoney where e_ispay=1"
  set rs=joekoe_cms.exec(sql,1)
  sum_pay=rs(0)
  rs.close
  if not isnumeric(sum_pay) then sum_pay=0
%>
<tr align=center valign=top>
<td>
  <table border=0 cellspacing=2 cellpadding=2>
  <tr><td height=5></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='<%response.write pageurl%>'<%if action="" then response.write " class=red2"%>>购买<%response.write joekoe_cms.web_unit&tit_fir%></a></td></tr>
  <tr><td height=5></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='<%response.write pageurl%>action=ispay'<%if action="ispay" then response.write " class=red2"%>>已支付购买</a></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='<%response.write pageurl%>action=nopay'<%if action="nopay" then response.write " class=red2"%>>未支付购买</a></td></tr>
  <tr><td height=5></td></tr>
  <tr><td><%response.write img_admin("s_emoney","")%>&nbsp;支付额：<font class=red><%response.write sum_pay%></font> 元</td></tr>
  <tr><td height=5></td></tr>
  <tr><td><%response.write img_admin("s_imp","")%>&nbsp;<a href='<%response.write pageurl%>action=clear' alt='注意：清理<font class=red>一天前</font>的未支付<%response.write tit_fir%>' onclick="javascript:return click_return('清理一天前的未支付<%response.write tit_fir%>',0);">清理未支付<%response.write tit_fir%></a></td></tr>
  </table>
</td>
<td>
  <table cellspacing=1 cellpadding=2 class=table0>
  <form name=sel_form action='<%response.write pageurl%>action=handle' method=post>
  <tr align=center>
  <td class=td width='7%'>序号</td>
  <td class=td width='25%'>购买订单号</td>
  <td class=td width='16%'>购买用户</td>
  <td class=td width='10%'>金额</td>
  <td class=td width='10%'>购买数</td>
  <td class=td width='16%'>购买时间</td>
  <td class=td width='11%'>支付否</td>
  <td class=td width='5%'><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
  </tr>
<%
  select case action
  case "ispay"
    sql_add=" where e_ispay=1"
    pageurl=pageurl&"action="&action&"&"
  case "nopay"
    sql_add=" where e_ispay=0"
    pageurl=pageurl&"action="&action&"&"
  end select
  sql="select count(e_id) from notes_emoney "&sql_add
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from notes_emoney "&sql_add&" order by e_id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
    nid=rs("e_id")
    tim=rs("e_tim")
    e_ispay=rs("e_ispay")
    e_ptim=rs("e_ptim")
%>
  <tr align=center>
  <td class=tims><%response.write (viewpage-1)*nummer+i%></td>
  <td<%if e_ispay then response.write " class=blue"%>><%response.write rs("e_ordernum")%></td>
  <td><%response.write format_user_view(rs("e_username"),1,0)%></td>
  <td><%response.write rs("e_amount")%>&nbsp;<font class=gray>元</font></td>
  <td><%response.write rs("e_emoney")%>&nbsp;<font class=gray><%response.write joekoe_cms.web_unit%></font></td>
  <td class=tims><%
  if e_ispay then
    response.write "<font class=red alt='支付时间："&joekoe_cms.time_type(e_ptim,2)&"<br><font class=gray>购买时间："&joekoe_cms.time_type(tim,2)&"</font>'>"&joekoe_cms.time_type(e_ptim,3)&"</font>"
  else
    response.write "<font alt='购买时间："&joekoe_cms.time_type(tim,2)&"'>"&joekoe_cms.time_type(tim,3)&"</font>"
  end if
%></td>
  <td><%
  if e_ispay then
    response.write "<font class=red>已支付</font>"
  else
    response.write "<font class=gray>未支付</font>"
  end if
%></td>
  <td><input type=checkbox name=sel_id value='<%response.write nid%>'></td>
  </tr>
<%
    rs.movenext
  next
  rs.close
%>
  <tr>
  <td colspan=6>
现有<font class=red><%response.write rssum%></font>条<%response.write tit_fir%>，
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
  </td>
  <td colspan=2 align=center>
<select name=sel_type size=1>
<option value='删除'>删除</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
  </td>
  </tr>
  </form>
  </table>
</td>
</tr>
<%
end sub

sub joekoe_chk_main()
  dim sum_pay,data_type,clear_msg
  call admin_td(tit)
  sql="select sum(e_amount) from notes_emoney where e_ispay=1"
  set rs=joekoe_cms.exec(sql,1)
  sum_pay=rs(0)
  rs.close
  if not isnumeric(sum_pay) then sum_pay=0
%>
<tr>
<td width='20%'>购买<%response.write joekoe_cms.web_unit%>相关属性：</td>
<td width='80%'>
  <table border=0>
  <tr>
  <td><%response.write img_admin("s_emoney","")%>&nbsp;总支付金额：<font class=red><%response.write sum_pay%></font>&nbsp;元</td>
  <td width=5></td>
  <td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=emoney&action=ispay'>已支付购买</a></td>
  <td width=5></td>
  <td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=emoney&action=nopay'>未支付购买</a></td>
  </tr>
  </table>
</td>
</tr>
<%
  if joekoe_cms.chk() then
    data_type=trim(request.form("data_type"))
    select case data_type
    case "all"
      sql="delete from notes"
    clear_msg="所有"
    case "week"
      sql="delete from notes where datediff("&s_d&"d"&s_d&",tim,"&s_tim&")>7"
      clear_msg="一周前"
    case else	'"month"
      sql="delete from notes where datediff("&s_d&"d"&s_d&",tim,"&s_tim&")>30"
    clear_msg="一个月前"
    end select
    call joekoe_cms.exec(sql,0)
    call admin_msg("已成功清理了"&clear_msg&"的消费数据！",pageurl,1)
    exit sub
  end if
  call form_first()
%>
<tr>
<td>消费数据清理：</td>
<td>
  <table border=0>
  <tr>
  <td>对网站内部模块的虚拟货币（<%response.write joekoe_cms.web_unit%>）消费数据，如文章、下载、影视、图片等栏目所消耗的消费数据。</td>
  </tr>
  </table>
</td>
</tr>
<tr>
<form name=data_frm action='<%response.write pageurl%>' method=post>
<input type=hidden name=chk value='yes'>
<td class=htd>注意：<br>清除后将不能再恢复</td>
<td>
  <table border=0>
  <tr><td><input type=radio name=data_type value='month' checked>&nbsp;清除一个月前的数据</td></tr>
  <tr><td><input type=radio name=data_type value='week'>&nbsp;清除一周前的数据</td></tr>
  <tr><td><input type=radio name=data_type value='all'>&nbsp;清除所有的消费数据</td></tr>
  </table>
</td>
</tr>
<tr>
<td></td>
<td><input type=submit value='执行清除操作' onclick="javascript:return click_return('执行清除操作',0);"></td>
</form>
</tr>
<%
end sub
%>