admin_notes.asp

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

<!-- #include file="include/admin_onlogin.asp" -->
<%

dim tim,nid,card_max_num
card_max_num=1000
index_url="notes"
call admin_master(0,0)
call admin_header(0,0)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?'><%response.write tit%></a></td>
  <td width=10></td>
  <td><a href='?jk_mod=emoney'<%if jk_mod="emoney" then response.write " class=red"%>>购买<%response.write joekoe_cms.web_unit&tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?jk_mod=prepay'<%if jk_mod="prepay" then response.write " class=red"%>>充值服务<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?jk_mod=card'<%if jk_mod="card" then response.write " class=red"%>>会员卡管理</a></td>
  </tr>
  </table>
</td></tr>
</table>
<%
call admin_table(1)

select case jk_mod
case "prepay"
  data_name="notes_prepay"
  if action="handle" then
    call joekoe_go_handle()
  end if
  call joekoe_chk_prepay()
case "card"
  call admin_td("会员卡管理")
%>
<tr align=center valign=top>
<td>
  <table border=0>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=<%response.write jk_mod%>'>会员卡列表</a></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=<%response.write jk_mod%>&action=add'<%if action="add" then response.write " class=red"%>>添加会员卡</a></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=<%response.write jk_mod%>&action=rnd'<%if action="rnd" then response.write " class=red"%>>批量生成会员卡</a></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=<%response.write jk_mod%>&action=lock'<%if action="lock" then response.write " class=red"%>>批量锁定会员卡</a></td></tr>
  </table>
</td>
<td>
  <table cellspacing=1 cellpadding=3 class=table0>
<%
  select case action
  case "delete"
    call joekoe_chk_card_delete()
  case "lock"
    call joekoe_chk_card_lock()
  case "edit"
    call joekoe_chk_card_edit()
  case "add"
    call joekoe_chk_card_add()
  case "rnd"
    call joekoe_chk_card_rnd()
  case else
    call joekoe_chk_card()
  end select
%>
  </table>
</td>
</tr>
<%
case "emoney"
  call joekoe_chk_emoney()
case else
  call joekoe_chk_main()
end select

call admin_ender(1)

sub joekoe_chk_prepay()
  dim str_types,str_username,username2,num_order,str_tim
%>
<form name=sel_form action='?jk_mod=<%response.write jk_mod%>&action=handle' method=post>
<tr align=center>
<td class=td width='6%'>序号</td>
<td class=td width='8%'>类型</td>
<td class=td width='10%'>购买总价</td>
<td class=td width='16%'>充值用户 </td>
<td class=td width='10%'>充值时间</td>
<td class=td width='15%'>充值名称</td>
<td class=td width='10%'>购买单价</td>
<td class=td width='8%'>数量</td>
<td class=td width='12%'>购买时间</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(id) from notes_prepay"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from notes_prepay order by 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
    str_types="购买"
    if rs("types")=1 then str_types="<font class=red alt='购买者："&rs("username")&"'>赠送</font>"
    str_username=format_user_view(rs("username2"),1,18)
    num_order=rs("num_order")
    str_tim=rs("tim")
    response.write vbcrlf&"<tr class=bg_td align=center>" & _
         vbcrlf&"<td class=tims>"&(viewpage-1)*nummer+i&"</td>" & _
         vbcrlf&"<td>"&str_types&"</td>" & _
         vbcrlf&"<td align=right><font class=red2>"&rs("total")&"</font> "&joekoe_cms.web_unit&"</td>" & _
         vbcrlf&"<td>"&str_username&"</td>" & _
         vbcrlf&"<td align=right><font class=blue><b>"&(num_order*rs("num_month"))&"</b></font> 个月</td>" & _
         vbcrlf&"<td>"&rs("explain")&"</td>" & _
         vbcrlf&"<td align=right><font class=red2>"&rs("price")&"</font> "&joekoe_cms.web_unit&"</td>" & _
         vbcrlf&"<td>"&num_order&"</td>" & _
         vbcrlf&"<td><font class=tims alt='"&str_tim&"'>"&joekoe_cms.time_type(str_tim,4)&"</font></td>" & _
         vbcrlf&"<td><input type=checkbox name=sel_id value='"&rs("id")&"'></td>" & _
         vbcrlf&"</tr>"
    rs.movenext
  next
  rs.close
%>
  <tr>
  <td colspan=7>
现有<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

function card_rand_pass(rnum)
  dim var_pass,var_len,temp1,ri,rand_num
  var_pass="abcdefghijklmnopqrstuvwxyz0123456789"
  var_len=len(var_pass)
  temp1=""
  for ri=1 to rnum
    randomize
    rand_num=int((var_len-1+1)*rnd)+1
    temp1=temp1&mid(var_pass,rand_num,1)
  next
  card_rand_pass=temp1
end function

function card_format_var(vlen,vvar)
  dim fi,temp1
  temp1=""
  for fi=1 to vlen
    temp1=temp1&vvar
  next
  card_format_var=temp1
end function

sub joekoe_chk_card_delete()
  dim sel_ids,sdim,snum
  sel_ids=trim(request.form("sel_id"))
  sel_ids=replace(sel_ids," ","")
  sdim=split(sel_ids,",")
  snum=ubound(sdim)
  for i=0 to snum
    if isnumeric(sdim(i)) then
      call joekoe_cms.exec("delete from cards where c_id="&sdim(i),0)
    end if
  next
  erase sdim
  call admin_msg("已成功删除 "&snum&" 条会员卡信息！","?jk_mod="&jk_mod,1)
end sub

sub joekoe_chk_card_lock()
  call admin_td("批量锁定会员卡")
  if chk() then
    dim c_name_start,c_name_end,c_hidden
    c_name_start=code_admin("c_name_start",1,20)
    c_name_end=code_admin("c_name_end",1,20)
    select case trim(request.form("c_hidden"))
    case "no"
      c_hidden=0
    case "yes"
      c_hidden=1
    case else
      c_hidden=2
    end select
    if c_name_start="" or c_name_end="" then
      call admin_error("开头卡号 和 结束卡号 不能为空！")
      exit sub
    end if
    sql="update cards set c_hidden="&c_hidden&" where c_name>'"&c_name_start&"' and c_name<'"&c_name_end&"'"
    call joekoe_cms.exec(sql,0)
    call admin_msg("批量锁定会员卡（"&c_name_start&" ~ "&c_name_end&"）！","?jk_mod="&jk_mod,0)
    exit sub
  end if
  call form_first()
%>
<form name=add_frm action='?jk_mod=<%response.write jk_mod%>&action=lock' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'>开头卡号：</td>
<td width='80%'><input type=text name=c_name_start value='' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>结束卡号：</td>
<td><input type=text name=c_name_end value='' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>操作状态：</td>
<td><input type=radio name=c_hidden value='no'>&nbsp;未使用&nbsp;
<input type=radio name=c_hidden value='yes'>&nbsp;已使用&nbsp;
<input type=radio name=c_hidden value='lock' checked>&nbsp;锁定</td>
</tr>
<tr><td></td><td height=40><input type=submit value='批量锁定会员卡'></td></tr>
</form>
<%
end sub

sub joekoe_chk_card_edit()
  dim c_name,c_pass,c_emoney,c_hidden
  call admin_td("修改会员卡")
  sql="select top 1 * from cards where c_id="&id
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,3
  if rs.eof then
    call admin_msg("会员卡ID（"&id&"）不存在！","?jk_mod="&jk_mod,1)
    rs.close
  end if
  if chk() then
    c_name=code_admin("c_name",1,10)
    c_pass=code_admin("c_pass",1,10)
    c_emoney=code_admin("c_emoney",1,10)
    if not int_true(c_emoney) then c_emoney=0
    select case trim(request.form("c_hidden"))
    case "no"
      c_hidden=0
    case "yes"
      c_hidden=1
    case else
      c_hidden=2
    end select
    if c_name="" or c_pass="" then
      call admin_error("会员卡的 卡号和密码 不能为空！")
      exit sub
    end if
    if int(c_emoney)<1 then
      call admin_error("会员卡的 充值数量 必须为大于等于1的整数！")
      exit sub
    end if
    rs("c_name")=c_name
    rs("c_pass")=c_pass
    rs("c_emoney")=c_emoney
    rs("c_hidden")=c_hidden
    rs.update
    rs.close
    call admin_msg("成功修改一条 会员卡 信息！","?jk_mod="&jk_mod,0)
    exit sub
  end if
  call form_first()
  c_hidden=rs("c_hidden")
%>
<form name=add_frm action='?jk_mod=<%response.write jk_mod%>&action=edit&id=<%response.write id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'>会员卡号：</td>
<td width='80%'><input type=text name=c_name value='<%response.write rs("c_name")%>' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>卡号密码：</td>
<td><input type=text name=c_pass value='<%response.write rs("c_pass")%>' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>充值数量：</td>
<td><input type=text name=c_emoney value='<%response.write rs("c_emoney")%>' size=10 maxlength=10>&nbsp;<%response.write joekoe_cms.web_unit&redx%></td>
</tr>
<tr>
<td>当前状态：</td>
<td><input type=radio name=c_hidden value='no'<%if int(c_hidden)=0 then response.write " checked"%>>&nbsp;未使用&nbsp;
<input type=radio name=c_hidden value='yes'<%if int(c_hidden)=1 then response.write " checked"%>>&nbsp;已使用&nbsp;
<input type=radio name=c_hidden value='lock'<%if int(c_hidden)=2 then response.write " checked"%>>&nbsp;锁定</td>
</tr>
<%
  rs.close
  call submit_edit()
end sub

sub joekoe_chk_card_add()
  dim c_name,c_pass,c_emoney,c_hidden
  call admin_td("添加会员卡")
  if chk() then
    c_name=code_admin("c_name",1,10)
    c_pass=code_admin("c_pass",1,10)
    c_emoney=code_admin("c_emoney",1,10)
    if not int_true(c_emoney) then c_emoney=0
    c_hidden=0
    if trim(request.form("c_hidden"))="yes" then c_hidden=1
    if c_name="" or c_pass="" then
      call admin_error("会员卡的 卡号和密码 不能为空！")
      exit sub
    end if
    if int(c_emoney)<1 then
      call admin_error("会员卡的 充值数量 必须为大于等于1的整数！")
      exit sub
    end if
    sql="select * from cards"
    call joekoe_cms.exec("",-1)
    rs.open sql,conn,1,3
    rs.addnew
    rs("c_name")=c_name
    rs("c_pass")=c_pass
    rs("c_emoney")=c_emoney
    rs("c_hidden")=c_hidden
    rs.update
    rs.close
    call admin_msg("成功添加一条 会员卡 信息！","?jk_mod="&jk_mod,0)
    exit sub
  end if
  call form_first()
%>
<form name=add_frm action='?jk_mod=<%response.write jk_mod%>&action=add' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'>会员卡号：</td>
<td width='80%'><input type=text name=c_name value='' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>卡号密码：</td>
<td><input type=text name=c_pass value='' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>充值数量：</td>
<td><input type=text name=c_emoney value='' size=10 maxlength=10>&nbsp;<%response.write joekoe_cms.web_unit&redx%></td>
</tr>
<tr>
<td>当前状态：</td>
<td><input type=radio name=c_hidden value='no' checked>&nbsp;未使用&nbsp;
<input type=radio name=c_hidden value='yes'>&nbsp;已使用&nbsp;
<input type=radio name=c_hidden value='lock'>&nbsp;锁定</td>
</tr>
</tr>
<%
  call submit_add()
end sub

sub joekoe_chk_card_rnd()
  call admin_td("批量生成会员卡")
  dim c_num,c_name_start,c_name_len,c_name_head,c_pass_len,c_emoney,c_name,c_pass,tmp1
  if chk() then
    c_num=trim(request.form("c_num"))
    if not int_true(c_num) then c_num=0