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

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->

<%
call zwtj()
mytit=mytit&"<a href=""?"">关键字管理</a> > "

select case action
case "add"
mytit=mytit&"添加关键字"
call add()
case "aadd"
call aadd()
case "del"
call del()
case "show",""
mytit=mytit&"关键字列表"
call show()
case "ups"
mytit=mytit&"编辑关键字"
call ups()
case "doup"
call doup()
end select

'显示
sub show()
sql="select * from Jw_newskey order by id desc"
call record(rs,sql,1)
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"><%= mytit %> || <a href="?action=add&amp;fid=<%= fid %>">添加关键字 </a></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="4%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="36%" align="center" bgcolor="#C5E0F3"><strong>关键字</strong></td>
<td width="17%" align="center" bgcolor="#C5E0F3"><strong>点击</strong></td>
<td width="21%" align="center" bgcolor="#C5E0F3"><strong>创建时间</strong></td>
<td width="19%" 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 align="center"><a href="key.asp?action=ups&amp;id=<%= rs("id") %>"><%= rs("mc") %></a></td>
<td align="center"><%= rs("hits") %>&nbsp;</td>
<td align="center"><%= rs("ctim") %></td>
<td align="center"><%= rs("lastm") %></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="6" bgcolor="#C5E0F3">
<table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="9%"><input name="del" type="button" class="btn2" id="del" value="删除所选" onMouseUp="tjqr('您确定要删除？此操作无法逆转！','?action=del')"/></td>
<td width="91%"><% 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"><%= mytit %></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"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="45%"><input onfocus="on_input('cmc');this.className='focus'" onblur="out_mc();this.className='inp'" name="mc" type="text" class="inp" id="mc" size="50" maxlength="40" /></td>
<td width="55%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">点击：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="45%"><input name="hits" type="text" class="inp" id="hits" onfocus="on_input('chits')" onblur="out_hits()" value="0" size="50" maxlength="50" /></td>
<td width="55%"><div id="chits"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input name="go" type="button" class="btn2" onclick="goo();" id="go" value="提交">
<input name="reset" type="reset" class="btn2" id="reset" value="重写" /></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();
</SCRIPT>
<script language="javascript">
function on_input(objname){
var strtxt;
var obj=GE(objname);
obj.className="d_on";
switch (objname){
case "cmc":strtxt=lion+"请输入关键字名称[2-20]";
break;
case "chits":strtxt=lion+"请输入点击数";
break;
}
obj.innerHTML=strtxt;
}

function out_mc()
{
var obj=GE("cmc");
var chk=true;
if (ls(GE("mc").value)<2 || ls(GE("mc").value)>40){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 关键字已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入关键字[2-20]";
}
return chk;
}

function out_hits()
{
var obj=GE("chits");
var chk=true;
if (isNaN(GE("hits").value)==true){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 点击数已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 点击数只能是数字";
}
return chk;
}

function goo()
{
var chk=true;
if (!out_mc()){chk=false;}
if (!out_hits()){chk=false;}
if (chk==true){
var mc=GE("mc").value;
var hits=GE("hits").value;

GE("go").disabled="disabled";
GE("reset").disabled="disabled";
var Ajax = new oAjax("key.asp?action=aadd",backs);
var arrKey = new Array("mc","hits");
var arrValue =new Array(mc,hits);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="key.asp"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>
<%
call connend()
call foot()
end sub

'执行添加
sub aadd()
dim mc,hits
mc=Trim(Request.Form("mc"))
hits=Trim(Request.Form("hits"))
conn.begintrans'事务开始
conn.execute("insert into Jw_newskey(mc,hits,ctim,lastm) values ('"&mc&"',"&hits&",now(),now())")
if conn.errors.count>0 then ''有错误发生 
conn.rollbacktrans''回滚 
end if
conn.CommitTrans ''提交事务
if err.number<>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'修改
sub ups()

set rs=conn.execute("select * from Jw_newskey 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"> <%= mytit %> || <a href="?action=add&amp;fid=<%= fid %>">添加关键字 </a></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"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="45%"><input name="mc" onfocus="on_input('cmc');this.className='focus'" onblur="out_mc();this.className='inp'" type="text" class="inp" id="mc" value="<%= rs("mc") %>" size="50" maxlength="40"/></td>
<td width="55%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">点击：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="45%"><input onfocus="on_input('chits');this.className='focus'" onblur="out_hits();this.className='inp'" name="hits" type="text" class="inp" id="hits" value="<%= trim(rs("hits")) %>" size="50" maxlength="50"/></td>
<td width="55%"><div id="chits"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input name="go" type="button" onclick="goo()" class="btn2" id="go" value="提交">
<input name="reset" type="reset" class="btn2" id="reset" value="重写" /></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();
</SCRIPT>
<script language="javascript">
function on_input(objname){
var strtxt;
var obj=GE(objname);
obj.className="d_on";
switch (objname){
case "cmc":strtxt=lion+"请输入关键字名称[2-20]";
break;
case "chits":strtxt=lion+"请输入点击数";
break;
}
obj.innerHTML=strtxt;
}

function out_mc()
{
var obj=GE("cmc");
var chk=true;
if (ls(GE("mc").value)<4 || ls(GE("mc").value)>40){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 关键字名称已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 请输入关键字[2-20]";
}
return chk;
}

function out_hits()
{
var obj=GE("chits");
var chk=true;
if (isNaN(GE("hits").value)){chk=false;}
if (chk){
obj.className="d_ok";
obj.innerHTML=ok+" 点击数已输入";
}
else
{
obj.className="d_err";
obj.innerHTML=err+" 点击数只能是数字";
}
return chk;
}

function goo()
{
var chk=true;
if (!out_mc()){chk=false;}
if (!out_hits()){chk=false;}
if (chk==true){
var mc=GE("mc").value;
var hits=GE("hits").value;

GE("go").disabled="disabled";
GE("reset").disabled="disabled";
var Ajax = new oAjax("key.asp?action=doup&id=<%= id %>",backs);
var arrKey = new Array("mc","hits");
var arrValue =new Array(mc,hits);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="key.asp"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>
<%
call connend()
call foot()
end sub

'执行修改
sub doup()
dim mc,hits
mc=Trim(Request.Form("mc"))
hits=Trim(Request.Form("hits"))
conn.begintrans'事务开始
'更新记录
conn.execute("update Jw_newskey set mc='"&mc&"',hits="&hits&" where id="&id)
if err.number<>0 then 
call errs("有错误发生")
end if

if conn.errors.count>0 then ''有错误发生 
conn.rollbacktrans''回滚 
end if
conn.CommitTrans ''提交事务
call errs(0)
end sub

'删除
sub del()
'删除单条记录
if id<>"" then
conn.execute("delete * from Jw_newskey where id="&id)
end if 
'批量删除
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")

for i=0 to ubound(iid)
conn.execute("delete * from Jw_newskey where id="&iid(i))
next
call connend()
response.Redirect("key.asp?page="&request("page"))
end sub
%>