?? admrevise0.asp
字號(hào):
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="ADOVBS.INc" -->
<%
if request("page")="" then
page=1
else
page=request("page")
end if
leibie=request("leibie")
biaoti=request("biaoti")
response.write page
'response.end
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("news.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from news where classfication='"& leibie &"' and title='"& biaoti &"' order by newsdate desc"
rs.open sqlstr,conn,adOpenStatic
if rs.eof then
%>
<Script language=javascript>
<!--
alert("查無(wú)此新聞！");
window.location.href="admrevise0.htm";
//-->
</script>
<%
else
'rs.pagesize=1
'rs.absolutepage=page
'response.write rs.absolutepage
%>
<html>
<head>
<title>新聞提交后臺(tái)管理程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/zhao/html/3508.css">
<style type="text/css">
<!--
.newstype { font-size: 12px; color: #003366; background-color: #FFFFEF}
.title { font-size: 16px; font-weight: bold; color: #003366; background-color: #FFFFF8}
.botton { font-size: 12px; color: #000000; background-color: #FFFFF8}
-->
</style>
</head>
<body bgcolor="#FFFFFF" background="/zhao/images/bg1.gif">
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td height="60" class="title">新聞修改單</td>
</tr>
<tr>
<td height="1" bgcolor="006600"></td>
</tr>
</table>
<form method="post" action="admrevise1.asp" name="addnews" >
<table width="580" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="80">標(biāo)題</td>
<td width="517">
<input type="text" name="biaoti" size="60" class="newstype" maxlength="60" value=<%=rs("title")%>>
</td>
</tr>
<tr>
<td width="80">附標(biāo)題</td>
<td width="517">
<input type="text" name="fubiaoti" size="60" class="newstype" maxlength="60" value=<%=rs("accessory")%>>
</td>
</tr>
<tr>
<td width="80">關(guān)鍵字1：</td>
<td width="517">
<input type="text" name="gjz1" size="15" class="newstype" maxlength="10" value=<%=rs("key1")%>>
</td>
</tr>
<tr>
<td width="80">關(guān)鍵字2：</td>
<td width="517">
<input type="text" name="gjz2" size="15" class="newstype" maxlength="10" value=<%=rs("key2")%>>
</td>
</tr>
<tr>
<td width="80">摘自：</td>
<td width="517">
<input type="text" name="zhaizi" size="30" class="newstype" maxlength="20" value=<%=rs("lookfrom")%>>
</td>
</tr>
<tr>
<td width="80">作者：</td>
<td width="517">
<input type="text" name="zuozhe" size="16" class="newstype" maxlength="8" value=<%=rs("reporter")%>>
</td>
</tr>
<tr>
<td colspan="2">具體內(nèi)容：</td>
</tr>
<tr align="center">
<td colspan="2">
<textarea name="neirong" cols="80" rows="20" class="newstype"><%=replace(rs("content"),"<br>","ê")%></textarea>
</td>
</tr>
<tr align="center" bgcolor="#006600">
<td colspan="2" height="1"></td>
</tr>
<tr align="center" valign="bottom">
<td colspan="2" height="40">
<input type="submit" name="Submit" value="新聞提交" class="botton">
<input type="submit" name="Submit2" value="新聞刪除" class="botton">
</td>
</tr>
<tr>
<td><input type="hidden" name="id" value=<%=rs("newsid")%>></td>
</tr>
</table>
</form>
<form method="post" action="/images/zhao/revise/admrevise0.asp">
<table width="80%" border="0" cellpadding="0" cellspacing="0">
<%
if rs.pagecount>1 then
%>
<tr>
<td align="center" colspan="2"> <%if page>1 then%>
<input type="button" value="首頁(yè)" onClick="window.location.href='admrevise0.asp?leibie=<%=trim(request("leibie"))%>&page=1&biaoti=<%=biaoti%>'" name="button" class="botton1" >
<input type="button" value="前頁(yè)" onClick="window.location.href='admrevise0.asp?leibie=<%=trim(request("leibie"))%>&page=<%=(page-1)%>&biaoti=<%=biaoti%>'" name="button22" class="botton1">
<%
end if
if cint(page)<rs.pagecount then
%>
<input type="button" value="后頁(yè)" onClick="window.location.href='admrevise0.asp?leibie=<%=trim(request("leibie"))%>&page=<%=(page+1)%>&biaoti=<%=biaoti%>'" name="button23" class="botton1">
<input type="button" value="末頁(yè)" onClick="window.location.href='admrevise0.asp?leibie=<%=trim(request("leibie"))%>&page=<%=(rs.pagecount)%>&biaoti=<%=biaoti%>'" name="button2" class="botton1" >
<%end if%> </td>
</tr>
<%
end if
%>
</table>
</form>
</body>
</html>
<%
end if
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -