www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/info/key.asp
<!--#include file="../config.asp" --> <!--#include file="../../inc/page.asp" --> <% call chkqx(3,4) 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() %> <link href="../inc/mm.css" rel="stylesheet" type="text/css" /> <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&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%" 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><a href="key.asp?action=ups&id=<%= rs("id") %>"><%= rs("mc") %></a></td> <td align="center"><%= rs("hits") %> </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="button_1" id="del" value="删除所选" onMouseUp="tjqr('您确定要删除?此操作无法逆转!','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td> <td width="91%" 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"><%= 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="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" 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="button_1" onclick="goo();" 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(); </SCRIPT> <script language="javascript" src="/<%= hturl %>/inc/chk.js"></script> <script language="javascript"> function goo() { var chk=true; if (!out_mc()){chk=false;} if (!out_hits()){chk=false;} if (chk==true){ var mc=escape(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+" 操作成功"; window.location.href="key.asp" } else { GE("msg").className="d_err"; GE("msg").innerHTML=err+" "+unescape(str); GE("go").disabled=""; GE("reset").disabled=""; } } } } </script> <% call connend() call foot() end sub '执行添加 sub aadd() dim mc,hits mc=getForm("mc",1,1) hits=getForm("hits",2,0) 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&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="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(); </SCRIPT> <script language="javascript" src="/<%= hturl %>/inc/chk.js"></script> <script language="javascript"> function goo() { var chk=true; if (!out_mc()){chk=false;} if (!out_hits()){chk=false;} if (chk==true){ var mc=escape(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+" 操作成功"; window.location.href="key.asp" } else { GE("msg").className="d_err"; GE("msg").innerHTML=err+" "+unescape(str); GE("go").disabled=""; GE("reset").disabled=""; } } } } </script> <% call connend() call foot() end sub '执行修改 sub doup() dim mc,hits mc=getForm("mc",1,1) hits=getForm("hits",2,0) 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() 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 %>