⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_card.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../Inc/Commoncode.asp" -->
<!--#include file="../checkvalid.asp"-->

<%
'************************************************************
'	Software name: Finereason HRCMS 6.0
'	软件名称:嘉缘人才网站内容管理系统 V6.0
'	Email: service@finereason.com . QQ:109530926
'	Web: http://www.finereason.com  http://www.yjys.net
'	Copyright (C) FineSincere Inc. All Rights Reserved.
'	版权所有 嘉挚科技 未经嘉挚公司授权不得用于任何商业用途
'
'	文件名称：Admin_Card.asp
'	作    用：充值卡管理
'	最后更新：Fine Sincere (Mr.Hou)
'	最后日期：2007-5-13
'************************************************************
If Not FRAdminLevel(203) Then
	Call ErrorMsg()
End If
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.ExpiresAbsolute = Now() - 1 
Dim Action
Dim FoundErr,ErrMsg

Dim page,i
Dim totalPut
const MaxPerpage=20
Const strFileName="Admin_Card.asp"

page=Trim(Request("page"))
If page<>"" And IsNumeric(page) Then
	If page<1 Or Len(page)>10 Then
		page=1
	Else
    	page=CLng(page)
	End If
Else
	page=1
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta content="noindex,nofollow" name="robots" />
<title>Finereason HRCMS 6.0 后台管理系统</title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/JavaScript">
function ConfirmDel(ID,Name)
{
   if(confirm("您确定要删除充值卡【"+Name+"】吗？\n\n警告：此操作不可恢复，请慎重操作！"))
     location.href="<%=strFileName%>?Action=Del&JOB_id="+ID
}
function unSelectAll()
{
    if(document.form1.chkAll.checked){
	document.form1.chkAll.checked = document.form1.chkAll.checked&0;
    } 	
}
function SelectAll(form)
{
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll"&&e.disabled!=true&&e.zzz!=1)
       e.checked = form.chkAll.checked;
    }
}
</script></head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <tr class="topbg">
    <th height="22" colspan="2" align="center" class="tableHeaderText"><strong >充 值 卡 管 理</strong></th>
  </tr>
  <tr class="tdbg">
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30">&nbsp;<a href="<%=strFileName%>">所有充值卡</a>&nbsp;|&nbsp;<a href="<%=strFileName%>?Use=0">所有未使用的充值卡</a>&nbsp;|&nbsp;<a href="<%=strFileName%>?Use=1">所有已使用的充值卡</a>&nbsp;|&nbsp;<a href="<%=strFileName%>?Use=2">所有已失效的充值卡</a>&nbsp;|&nbsp;<a href="<%=strFileName%>?Action=Add">添加充值卡</a>&nbsp;|&nbsp;<a href="<%=strFileName%>?Action=BatchAdd">批量生成充值卡</a>&nbsp;&nbsp;[<a href="javascript:location.reload()">刷新页面</a>]</td>
  </tr>
</table>
<%
Action=trim(Request("Action"))
Select Case Action
	Case "Add"
		Call ShowAdd()
	Case "Modify"
		Call ShowAdd()
	Case "Show"
		Call ShowData()
	Case "BatchAdd"
		Call BatchAdd()
	Case "SaveData"
		Call SaveData()
	Case "Del"
		Call Del()
	Case Else
		Call main()
End Select

if FoundErr=True then
	call Show_Err()
end if

Conn.Close
Set Conn=Nothing
%>
<%
Sub main()
	Set rs= Server.CreateObject(FR_HR_RS)
	Use=trim(Request("Use"))
	if Use <>"" then
	Select Case Use
		Case 0
			sql="select * from JOB_Card where IsNull(UseTime) and  EndDate>=Date() order by CardID desc"
		Case 1
			sql="select * from JOB_Card where not IsNull(UseTime) order by CardID desc"
		Case 2
			sql="select * from JOB_Card where IsNull(UseTime) and  EndDate<Date() order by CardID desc"
	End Select
	else
		sql="select * from JOB_Card order by CardID desc"
	end if
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>暂无此类充值卡，请添加或者返回其他管理！</li>"
		exit sub
	else
		totalPut=rs.recordcount
		if (page-1)*MaxPerpage>totalput then
			if (totalPut mod MaxPerpage)=0 then
				page= totalPut \ MaxPerpage
			else
				page= totalPut \ MaxPerpage + 1
			end if
		end if
		if page=1 then
			Call MainInfo()
		else
			if (page-1)*MaxPerpage<totalPut then
				rs.move  (page-1)*MaxPerpage
				dim bookmark
				bookmark=rs.bookmark
				Call MainInfo()
			else
				page=1
				Call MainInfo()
			end if
		end if
	end if
	rs.close
	set rs=nothing
End Sub
%>
<%Sub MainInfo()%>
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
	<form name="form1" method="Post" action="<%=strFileName%>">
	  <tr align="center">
		<td width="13%" height="22" align="center"><strong>卡号</strong></td>
		<td width="11%" align="center"><strong>密码</strong></td>
		<td width="7%" align="center"><strong>面值</strong></td>
		<td width="6%" align="center"><strong>点数</strong></td>
		<td width="7%" align="center"><strong>状态</strong></td>
		<td width="10%" align="center"><strong>使用者</strong></td>
		<td width="17%" align="center"><strong>充值时间</strong></td>
		<td width="10%" align="center"><strong>截止日期</strong></td>
		<td width="13%" align="center"><strong>操作选项</strong></td>
		<td width="6%" align="center"><strong>选中</strong></td>
	  </tr>
	<%
		do while not rs.eof
		CardID=Rs("CardID")
		CardNum=Rs("CardNum")
		CardPassword=Rs("CardPassword")
		Money=Rs("Money")
		ValidNum=Rs("ValidNum")
		EndDate=Rs("EndDate")
		UserName=Rs("UserName")
		UseTime=Rs("UseTime")
		CreateTime=Rs("CreateTime")
	%>
	  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
		<td><%=CardNum%></td>
		<td><%=CardPassword%></td>
		<td><%=Money%></td>
		<td><%=ValidNum%></td>
		<td><%if Isnull(UseTime) and EndDate >= Date() then%><span style="color:#009900">未使用</span><%elseif Isnull(UseTime) and EndDate < Date() then%><span style="color:#FF0000">已失效</span><%else%><span style="color:#FF0000">已使用</span><%end if%></td>
		<td><%if UserName<>"" then Response.Write UserName else Response.Write"　" end if%></td>
		<td><%if UseTime<>"" then Response.Write UseTime else Response.Write"　" end if%></td> 
		<td><%=EndDate%></td>
		<td><a href="<%=strFileName%>?Action=Default&CardID=<%=CardID%>">查看</a>
		  <a href="<%=strFileName%>?Action=Modify&CardID=<%=CardID%>">
修改</a>
<%if IsDefault = True then%>
<font color="#999999">删除</font>
<%else%>
<a href="javascript:ConfirmDel(<%=CardID%>,'<%=CardNum%>');">删除</a>
<%end if%></td>
	    <td><input name="CardID" type="checkbox" class="checkbox" value="<%=CardID%>"<%if IsDefault = True then%> disabled<%end if%> /></td>
	  </tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
		loop
	%>
		  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
	    <td colspan="10" align="right"><input name="chkAll" type="checkbox" class="checkbox" onclick="SelectAll(this.form)" value="checkbox" />
          <input name="Action" type="hidden" value="Del" />
          选中所有项目&nbsp;&nbsp;&nbsp;&nbsp;将选定的项目:&nbsp;
<input name="submit" type="submit" value="批量删除" /></td>
	    </tr>
		  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
		    <td colspan="10"><%If totalput>0 Then
	Call Showpage(strFileName,totalput,MaxPerPage,false,true,"张充值卡")
End If%></td>
	      </tr>
	  </form>
</table>
<%End Sub%>
<%Sub ShowAdd()
	CardID=trim(request.QueryString("CardID"))
	If CardID<>"" Then
		If IsNumeric(CardID)=False Then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>参数错误！</li>"
			Exit Sub
		End If
		sql="select * from JOB_Card where CardID=" & CardID
		set rs=server.CreateObject (FR_HR_RS)
		rs.open sql,conn,1,1
		if rs.bof and rs.eof then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>此充值卡不存在或者已经删除！</li>"
			Exit Sub
		else
			CardNum=Rs("CardNum")
			CardPassword=Rs("CardPassword")
			Money=Rs("Money")
			ValidNum=Rs("ValidNum")
			EndDate=Rs("EndDate")
		end if
		rs.Close
		Set rs=Nothing
	End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
  <form name="form1" method="post" action="<%=strFileName%>">
    <tr class="title">
      <th height="22" colspan="4" align="center" ><strong>
        <%If CardID<>"" Then%>
        修 改
        <%Else%>
        添 加
        <%End If%>
        充 值 卡</strong></th>
    </tr>
    <tr class="tdbg">
      <td width="28%" height="40" align="right"><strong>充值卡卡号：</strong></td>
      <td width="72%"><input maxlength="12" size="20" name="CardNum" value="<%=CardNum%>" <%if CardID<>"" then%>disabled="disabled"<%end if%> />
      请输入长度为6—12位的纯数字卡号</td>
    </tr>
    <tr class="tdbg">
      <td height="40" align="right"><strong>充值卡密码：</strong></td>
      <td><input maxlength="10" size="20" name="CardPassword" value="<%=decrypt(CardPassword)%>" />
      请输入长度为4—10位的数字、字母组合的密码</td>
    </tr>
    <tr class="tdbg">
      <td height="40" align="right"><strong>充值卡面值：</strong></td>
      <td><input maxlength="10" size="10" name="Money" value="<%=Money%>" />
      元</td>
    </tr>
    
    <tr class="tdbg">
      <td height="40" align="right"><strong>充值点数：</strong></td>
      <td><input maxlength="30" size="10" name="ValidNum" value="<%=ValidNum%>" />
        点</td>
    </tr>
    <tr class="tdbg">
      <td height="40" align="right"><strong>截止时间：</strong></td>
      <td><input maxlength="100" size="25" name="EndDate" <%If CardID<>"" Then%>value="<%=EndDate%>"<%Else%>value="<%=Date()%>"<%End If%> /></td>
    </tr>
    
    
    <tr class="tdbg">
      <td height="40" colspan="2" align="center"><input name="CardID" type="hidden" value="<%=CardID%>" />
          <input name="Action" type="hidden" value="SaveData" />
          <input name="btnSave" type="submit" style="cursor:pointer;" value="<%If CardID<>"" Then%> 修 改 <%Else%> 添 加 <%End If%>" />
        &nbsp;
        <input name="btnCancel" type="button" value=" 取 消 " onclick="window.location.href='<%=strFileName%>'" style="cursor:pointer;" />      </td>
    </tr>
  </form>
</table>
<%End Sub%>
<!--#include file="../inc/copy.asp" -->
<%
sub SaveData()
	CardID=trim(request("CardID"))
	if CardID<>"" And IsNumeric(CardID)=False then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数错误！</li>"
		Exit Sub
		CardID=CLng(CardID)
	end if
	CardNum=Request.Form("CardNum")
	CardPassword=Trim(Request.Form("CardPassword"))
	Money=Request.Form("Money")
	ValidNum=Request.Form("ValidNum")
	EndDate=Request.Form("EndDate")
	If CardNum="" Then
		ErrMsg=ErrMsg &"<br><li>卡号不能为空！</li>"
		FoundErr=True
	End If
	If CardPassword="" Then
		ErrMsg=ErrMsg &"<br><li>密码不能为空！</li>"
		FoundErr=True
	End If
	If Money="" Then
		ErrMsg=ErrMsg &"<br><li>面值不能为空！</li>"
		FoundErr=True
	End If
	If EndDate="" Then
		ErrMsg=ErrMsg &"<br><li>截止时间不能为空！</li>"
		FoundErr=True
	End If
	set rs=Server.CreateObject(FR_HR_RS)
	sql="select CardNum from JOB_Card where CardNum='"&CardNum&"'"
	rs.open sql,conn,1,1
	if not rs.eof then
	ErrMsg=ErrMsg &"<br><li>充值卡卡号已经存在！</li>"
	FoundErr=True
	end if
	rs.close
	set rs=nothing
	
	If FoundErr=True Then
		Exit Sub
	End If

	set rs=Server.CreateObject(FR_HR_RS)
	If CardID<>"" Then
		sql="select * from JOB_Card Where CardID="&CardID
	Else
		sql="select * from JOB_Card"
	End If
	rs.open sql,conn,1,3
	If CardID="" Then
		rs.AddNew
		rs("CardNum")=CardNum
		rs("CreateTime")=now()
	End If
	rs("CardPassword")=encrypt(CardPassword)
	rs("Money")=Money
	rs("ValidNum")=ValidNum
	rs("EndDate")=EndDate
	rs.update
	rs.close
	set rs=nothing
    response.redirect strFileName
	response.End()
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -