新微赢技术网
标题:
帮忙看看这段程序，万分感激
[打印本页]
作者:
龍2132
时间:
2010-1-13 00:45
标题:
帮忙看看这段程序，万分感激
帮我看看这个是干什么用的，最好再帮忙加点注释，谢谢~~~~~~~~~~ <script language="javaScript"> function checkdel(test) { return confirm("系统提示:\n此操作不可逆，是否确定"+test+"!!"); } </script> <!--#include file="conn.asp" --> <!--#include file="check.asp" --> <% if request("action") = "Move" and request("Move") <> "" then for each movedata in request("movedata") sql="update Ce_News set N_Class = '"&request("N_Class")&"' where N_ID="&movedata conn.execute sql next %> <script language="JavaScript"> <!-- alert("系统提示：\n数据移动成功！") self.navigate("News_Admin.asp") --> </script> <%end if%> <% Set rc=Server.CreateObject("ADODB.Recordset") if request("Class") = "" then sql="Select * from Ce_News order by N_id desc" rc.open sql,conn,1,1 else sql="Select * from Ce_News where N_Class = '"&request("Class")&"' order by N_id desc" rc.open sql,conn,1,1 end if rc.pagesize=20 dim Page Page =1 if request("Page") <> "" then Page=cint(request("Page")) end if if not rc.eof and not rc.bof then rc.absolutepage=Page end if count=rc.pagesize %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>后台管理页</title> <link href="css.css" rel="stylesheet" type="text/css"> </head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="35" background="img/admin_top_bg.gif"><img src="img/copy.gif" height="35"></td> </tr> </table><% if rc.eof then%> <table width="820" height="100" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr height="10"> <td height="5"></td> </tr> </table> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table"> <tr bgcolor="799AE1" > <td height="26" align="center" class="font"> <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td class="font"><strong><font color="#FFFFFF"> <%if request("Class") = "" then%> 新闻管理 <%else%> 新闻管理 — <%=request("Class")%>类列表 <%end if%> </font></strong></td> </tr> </table></td> </tr> <tr align="center" bgcolor="#FFFFFF"> <td height="23" bgcolor="#FFFFFF" class="td"><strong>暂时没有信息！</strong></td> </tr > </table> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr height="10"> <td height="10"></td> </tr> </table></td> </tr> </table> <%else%> <table width="820" height="100" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr height="10"> <td height="5"></td> </tr> </table> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table"> <form name="form1" method="post" action="?action=Move" onSubmit="return checkdel('移动选定数据');"><tr bgcolor="799AE1" > <td height="26" colspan="9" align="center" class="font"> <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td class="font"><strong><font color="#FFFFFF"> <%if request("Class") = "" then%> 新闻管理 <%else%> 新闻管理 — <%=request("Class")%>类列表 <%end if%> </font></strong> </td> </tr> </table></td> </tr> <tr align="center"> <td width="5%" height="23" bgcolor="#FFFFFF" class="td">编号</td> <td width="50%" height="23" bgcolor="#FFFFFF" class="td">分类—新闻标题</td> <td width="15%" height="23" bgcolor="#FFFFFF" class="td">发布日期</td> <td width="5%" height="23" bgcolor="#FFFFFF" class="td">点击</td> <td width="5%" height="23" bgcolor="#FFFFFF" class="td">图片</td> <td width="5%" height="23" bgcolor="#FFFFFF" class="td">推荐</td> <td width="5%" bgcolor="#FFFFFF" class="td">选中</td> <td width="5%" height="23" bgcolor="#FFFFFF" class="td">编辑</td> <td width="5%" height="23" bgcolor="#FFFFFF" class="td">删除</td> </tr > <%do while not rc.eof and count>0%> <TR align="center" bgcolor="#e4edf9" onmouseover="this.bgColor='#dedede'" onmouseout="this.bgColor='#e4edf9'" style="CURSOR:default"> <td height="23" class="font"><%=rc("N_ID")%></td> <td height="23" align="left" class="font"> [<%=rc("N_Class")%>] <%=left(rc("N_Title"),32)&""%></td> <td height="23" class="font"> <%if rc("N_ID") <= 4522 then%> <%=left(rc("N_date"),9)&""%> <%else%> <%=rc("N_date")%> <%end if%> </td> <td height="23" class="font"><%=rc("N_Hit")%></td> <td height="23" class="font"> <%if rc("Pic_News") = "Yes" then Response.Write("<strong><font color=#FF0000>√</font></strong>") else Response.Write("") end if %> </td> <td height="23" class="font"> <%if rc("True_News") = "Yes" then Response.Write("<strong><font color=#FF0000>√</font></strong>") else Response.Write("") end if %> </td> <td><input name="movedata" type="checkbox" id="movedata" value="<%=rc("N_ID")%>"></td> <td height="23"><a href="Edit_News.asp?ID=<%=rc("N_ID")%>"><img src="img/edit.gif" width="12" height="12" border="0"></a></td> <td height="23"><a href="Del.asp?ID=<%=rc("N_ID")%>&Go=News" onClick="return checkdel('删除该数据');"><img src="img/icon_del.gif" width="13" height="13" border="0" style="CURSOR: hand"></a></td> </tr> <% rc.movenext count=count-1 loop %> <tr bgcolor="799AE1" > <td height="26" colspan="9" align="center" class="font"><table width="99%" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td class="font"><strong><font color="#FFFFFF">将</font><font color="#FFFFFF">所选信息移动到 <select name="N_Class" class="input" id="N_Class"> <% set rs=server.CreateObject("adodb.Recordset") sql="Select * from Ce_News_Class order by C_ID asc" rs.open sql,conn,1,1 do while not rs.eof %> <option value="<%=rs("C_Name")%>"><%=rs("C_Name")%></option> <% rs.movenext loop rs.close set rs=nothing %> </select> <input name="Move" type="submit" class="button" id="Move" value="确定"> </font></strong></td> </tr> </table></td> </tr> </form> </table> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr height="10"> <td height="5"></td> </tr> </table> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table"> <tr > <td width="100%"height="24" align="right" class="font"> <%if request("Class") = "" then%> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <form name="pa" method="post" action=""> <td width="70%" height="20" align="right" valign="middle" class="font">共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息 分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页 当前第<font color="#FF2D00"><%=Page%></font>页 <img src="img/logo_img042.gif" width="11" height="11" align="absmiddle"> <a href="?Page=1">首页</a> <%if Page>1 then%> <a href="?Page=<%=Page-1%>">上页</a> <%else%> 上页 <%end if%> <%if Page < rc.pagecount then %> <a href="?Page=<%=Page+1%>">下页</a> <%else%> 下页 <%end if%> <a href=?Page=<%=rc.pagecount%>>尾页</a> <img src="img/logo_img044.gif" width="11" height="11" align="absmiddle"> <input name="Page" type="text" class="put" id="Page" value="<%=Page%>" size="3"> <input name="Submit" type="submit" class="button" value="转到该页"> </td> </form> </tr> </table> <%else%> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <form name="pa" method="post" action=""><tr> <td height="20" align="right" valign="middle" class="font"><font color="#ffffff">系统开发：林度</font>共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息 分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页 当前第<font color="#FF2D00"><%=Page%></font>页 <img src="img/logo_img042.gif" width="11" height="11" align="absmiddle"> <a href="?Page=1&Class=<%=request("Class")%>">首页</a> <%if Page>1 then%> <a href="?Page=<%=Page-1%>&Class=<%=request("Class")%>">上页</a> <%else%> 上页 <%end if%> <%if Page < rc.pagecount then %> <a href="?Page=<%=Page+1%>&Class=<%=request("Class")%>">下页</a> <%else%> 下页 <%end if%> <a href=?Page=<%=rc.pagecount%>&Class=<%=request("Class")%>>尾页</a> <img src="img/logo_img044.gif" width="11"
欢迎光临 新微赢技术网 (http://bbs.weiying.cn/)
Powered by Discuz! X3.2