uploadimage1.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 122 行
ASP
122 行
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF
page=Request.QueryString("page")
if page<=1 or page="" then page=1
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where image>0"
rs.Open rs.Source,conn,1,1
rs.PageSize=20
for i=1 to rs.PageSize*(page-1)
if not rs.EOF then
rs.MoveNext
end if
next
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="copyright" content="网络精英-ChinaNetboy.com">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<link href="news.css" rel="stylesheet" type="text/css">
</head>
<body>
<p> </p>
<table border="0" width="90%" align=center bgcolor="#000000" cellspacing="1" cellpadding="0">
<tr>
<td width="100%" height="55" bgcolor="#abb8d6">
<div align="center"><b>上 传 新 闻 图 片</b></div>
</td>
</tr>
<tr>
<form method="POST" action="UploadImage2.asp">
<td width="100%" bgcolor="#FFFFFF" height="60">
<div align="center"><b>直接输入新闻ID：
<input type="text" name="NewsID" size="20">
<input type="submit" value="下一步>>" name="submit" >
</b></div>
</td>
</form>
</tr>
<tr>
<td colspan=2 bgcolor=#abb8d6 align=center height=25>其他页(当前第<%=page%>页)：
<%
for i=1 to rs.PageCount
Response.Write "<a href=UploadImage1.asp?Page=" & i & "><font color=000000>" & i & "</font></a> "
next
%>
</td>
</tr>
<tr>
<td colspan=2 bgcolor=#abb8d6 align=center height=25>
<table width="100%" border="0" cellspacing="1" cellpadding="0" height="25">
<tr align="center" bgcolor="#FFFFFF">
<td width="6％">ID号</td>
<td width="62％">标 题</td>
<td width="20％">日 期</td>
<td width="6％">图片</td>
<td width="6%">执行</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#abb8d6">
<table border="0" cellspacing="1" width="100%" cellpadding="0">
<%
for i=1 to rs.PageSize
if not rs.EOF then
TrString="<form method=""POST"" action=""UploadImage2.asp""><input type=hidden name=NewsID value=" & rs("NewsID") & ">" & "<input type=hidden name=image value=" & rs("image") & ">"
TrString=TrString & "<tr bgcolor=ffffff><td width=6% align=center >" & rs("NewsID") & "</td>"
TrString=TrString & "<td width=62% > <a class=bai1 href=../ReadNews.asp?NewsID=" & rs("NewsID") & "&BigClassName=" & rs("BigClassName") & "&SmallClassName=" & rs("SmallClassName") & "&SpecialID=" & rs("SpecialId") & " target=_blank><font color=225588> "& trim(rs("Title")) & "</font></a></td>"
TrString=TrString & "<td width=20% align=center >" & rs("UpdateTime") & "</td>"
TrString=TrString & "<td width=6% align=center >" & rs("image") &"</td>"
' TrString=TrString & "<tr><td width=74% >(" & rs("image") & ") <a href=../ReadNews.asp?NewsID=" & rs("NewsID") & "&BigClassName=" & rs("BigClassName") & "&SmallClassName=" & rs("SmallClassName") & "&SpecialID=" & rs("SpecialId") & " target=_blank><font color=225588>(ID：" & rs("NewsID") & ") " & trim(rs("Title")) & "(" & rs("UpdateTime") & ")</font></a></td>"
TrString=TrString & "<td width=26% ><input type=submit value=""Next"" style=""border-style: double; border-color: #efefef""></td>"
TrString=TrString & "</form>"
Response.Write TrString
rs.MoveNext
end if
next
%>
</table>
</td>
</tr>
<tr>
<td colspan=2 bgcolor=#abb8d6 align=center height=25>其他页(当前第<%=page%>页)：
<%
for i=1 to rs.PageCount
Response.Write "<a href=UploadImage1.asp?Page=" & i & "><font color=000000>" & i & "</font></a> "
next
%>
</td>
</tr>
</table>
<p><br><br>
</body>
</html>
<%
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?