www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/info/jifen.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
call zwtj()

mytit=mytit&"<a href=""?"">会员积分管理</a> &gt; "

select case action
case "add"
mytit=mytit&"添加会员"
call add()
case "del"
call del()
case "show",""
mytit=mytit&"会员列表"
call show()
case "ups"
mytit=mytit&"编辑会员积分"
call ups()
case "aadd"
call aadd()
case "doup"
call doup()
end select

'公告列表///////////////////////////////////////////////////////////////////////////////////////
sub show()
sql="select * from Jw_jifen order by jifen desc"
call record(rs,sql,1)
call head()
%>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %> || <a href="?action=add">添加会员 </a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" id="form1" method="post" action="">
<tr>
<td width="2%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="30%" bgcolor="#C5E0F3"><strong>用户名</strong></td>
<td width="30%" bgcolor="#C5E0F3"><strong>密码</strong></td>
<td width="35%" align="center" bgcolor="#C5E0F3"><strong>积分</strong></td>
<td width="3%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td>
</tr>
<% 
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><a href="?action=ups&id=<%= rs("id") %>"><%= rs("username") %></a></td>
<td><%= rs("password") %></td>
<td align="center"><%= rs("jifen") %></td>
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onClick="td_bgcolor(r<%=rs("id")%>,1);"></td>
</tr>
<% 
i=i-1
rs.movenext 
loop
%>
<tr>
<td colspan="5" bgcolor="#C5E0F3">

<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="8%"><input name="del" type="button" class="button_1" id="del" value="删除所选" onMouseUp="tjqr('您确定要删除？此操作无法逆转！','?action=del')" onMouseOver="this.className='button_2'" onMouseOut="this.className='button_1'"/></td>
<td width="92%" align="right"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

'添加/////////////////////////////////////////////////////////////////////////////////////////////
sub add()
call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %></strong></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="10%" bgcolor="#D9ECF7">用户名：</td>
<td bgcolor="#D9ECF7"><input name="username" type="text" class="inp" id="username" size="40" onFocus="this.className='focus'" onBlur="out_mc();this.className='inp'"/></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">积&nbsp;&nbsp;分：</td>
  <td bgcolor="#D9ECF7"><input name="jifen" type="text" class="inp" id="jifen" size="40" onFocus="this.className='focus'" onBlur="out_mc();this.className='inp'"/></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">密　码：</td>
  <td bgcolor="#D9ECF7"><input name="password" type="text" class="inp" id="password" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'" size="40"/></td>
</tr>


<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onClick="goo('?action=aadd')" name="go" type="button" class="button_1" id="go" value="提交" onMouseOver="this.className='button_2'" onMouseOut="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onMouseOver="this.className='button_2'" onMouseOut="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo('?action=aadd');
</SCRIPT>
<%
call connend()
call foot()
end sub

'执行添加//////////////////////////////////////////////////////////////////////////////////////
sub aadd()

dim username,jifen,password

username=getform("username",1,1)
jifen=getform("jifen",1,0)
password=getform("password",1,0)
'插入记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select top 1 * from jw_jifen where 1=1",3)
rs.addnew()
rs("username")=username
rs("jifen")=jifen
rs("password")=password
rs.update()
call recordend(rs)

if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'修改////////////////////////////////////////////////////////////////////////////////////////////
sub ups()
call chkqx(4,5)
set rs=conn.execute("select * from jw_jifen where id="&id)
if rs.eof then 
call cc("记录不存在！")
end if

call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"> <strong><%= mytit %> || <a href="?action=add">添加会员</a></strong></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="10%" bgcolor="#D9ECF7">用户名：</td>
<td width="90%" bgcolor="#D9ECF7"><input name="username" type="text" class="inp" id="username" size="40" onFocus="this.className='focus'" onBlur="out_mc();this.className='inp'" value="<%= rs("username") %>"/></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">积&nbsp;&nbsp;分：</td>
  <td bgcolor="#D9ECF7"><input name="jifen" type="text" class="inp" id="jifen" size="40" onFocus="this.className='focus'" onBlur="out_mc();this.className='inp'" value="<%= rs("jifen") %>"/></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">密　码：</td>
  <td bgcolor="#D9ECF7"><input name="password" type="text" class="inp" id="password" size="40" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'" value="<%= rs("password") %>"/></td>
</tr>


<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onClick="goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>')" name="go" type="button" class="button_1" id="go" value="提交" onMouseOver="this.className='button_2'" onMouseOut="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onMouseOver="this.className='button_2'" onMouseOut="this.className='button_1'" /></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo('?action=doup&id=<%= id %>');
</SCRIPT>
<%
call connend()
call foot()
end sub

'执行修改////////////////////////////////////////////////////////////////////////////////////
sub doup()

dim username,jifen,password

username=getform("username",1,1)
jifen=getform("jifen",1,0)
password=getform("password",1,0)

'更新记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select * from jw_jifen where id="&id,3)
rs("username")=username
rs("jifen")=jifen
rs("password")=password
rs.update
call recordend(rs)
'结束/////////////////////////////////////////////////////////////////////////////////////
if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'删除//////////////////////////////////////////////////////////////////////////////////////////
sub del()
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")

for i=0 to ubound(iid)
'删除公告
conn.execute("delete * from jw_jifen where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>

<script language="javascript" src="/<%= hturl %>/inc/chk.js"></script>
<script language="javascript">
function InsertHTML(val)
{var oEditor = FCKeditorAPI.GetInstance('content') ;
if ( oEditor.EditMode == FCK_EDITMODE_WYSIWYG )
{oEditor.InsertHtml(val);}
else
alert("请切换到编辑模式");}

function goo(act)
{
GE("go").disabled="disabled";
GE("reset").disabled="disabled";

var username=escape(GE("username").value);
var jifen=GE("jifen").value;
var password=GE("password").value;

var Ajax = new oAjax(act,backs);
var arrKey = new Array("username","jifen","password");
var arrValue =new Array(username,jifen,password);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="?fid=<%= fid %>"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}}}
</script>