📄 addfile.asp
字号:
<!--#include file="checkthis.asp" -->
<!--#include file="data/conn.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="INDEX.css" rel="stylesheet" type="text/css">
</head>
<body text="#000000">
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="15" colspan="2" align="right" class="sxz"><!--#include file="admintop.asp" --></td>
</tr>
<form action="uploadpic_ok.asp" method="post" enctype="multipart/form-data">
<tr><tr bgcolor="#FFFFFF">
<td width="100" height="15" bgcolor="#EFEFEF"> <div align="right">所属相册：</div></td>
<td height="15" width="330" bgcolor="#FFFFFF">
<%
if IsNumeric(Request.QueryString("typeid"))=False then
Response.Redirect"info.asp?info=错误的参数"
else
typeid=cint(Request.QueryString("typeid"))
end if
sql1 = "SELECT * FROM zhuanti where id="&typeid
'response.write sql1
'response.end
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.OPEN sql1,Conn,1,1
if rs1.eof and rs1.bof then
Response.Write"还没有该专题"
else
Response.Write"<input type='hidden' name='zhuanti' value='"&rs1("id")&"'>"
Response.Write"<a href='zhuanti.asp?typeid="&rs1("id")&"' target='_blank'>"&rs1("name")&"</a>"
end if
rs1.close
set rs1=nothing
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100" height="15" bgcolor="#EFEFEF"> <div align="right">标题：</div></td>
<td height="15" width="330" bgcolor="#FFFFFF"> <input type="text" name="name" class="an" maxlength="50" size="20"">(可以为空)
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100" height="15" bgcolor="#EFEFEF"> <div align="right">照片：</div></td>
<td height="15" width="330" bgcolor="#FFFFFF"> <input type="file" name="file_up1" size="30">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#EFEFEF"> <div align="right">照片介绍：</div></td>
<td> <textarea maxLength=60 cols=43 name=photointro rows=3 class="form"></textarea> (可以为空)
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#EFEFEF"></td>
<td bgcolor="#FFFFFF">
<input type="hidden" name="CopyrightInfo" value="by paladin">
<input type="hidden" name="filepath" value="photofile">
<input type="hidden" name="act" value="upload"> <input type=submit value=" 提交 " name="submit">
</td>
</tr>
</form>
</table>
<%
Response.Write"<table width='760' border='0' cellspacing='0' cellpadding='5' bgcolor='#B8C4D2' align='center'>"
Response.Write"<tr align='center'>已上传的图片：<td>"
sql = "SELECT surl,id,hot FROM desktop where zhuanti="&typeid&" ORDER BY id aSC"
'response.write sql
'response.end
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>没有任何文件</tr></td>"
else
count=1
do while NOT rs.EOF
%>
<%
if(count mod 5 =1) then
response.write "<tr>"
end if
response.write "<td>"
%>
<table align=center bgcolor='#e9e9e9' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a href='display.asp?id=<%=rs("id")%>' target='_blank'><img src='<%=rs("surl")%>' border='0' class='bk' width='120'></a></td></tbody></table><center>[<a href='savefile.asp?id=<%=rs("id")%>&cz=del&typeid=<%=typeid%>&classid=<%=classid%>' target='_blank'>删除</a>|<a href='fileedit.asp?id=<%=rs("id")%>&cz=editfile'>编辑</a>|<% if Rs("hot")="" OR IsNULL(Rs("hot"))=true or Rs("hot")=0 then %><a href='photohot.asp?id=<%=rs("id")%>&t=1' target=_blank>隐藏</a><%else%><a href='photohot.asp?id=<%=rs("id")%>&t=0' target=_blank><font color=red>显示</font></a><%end if%>]</center>
<%
response.write "</td>"
if(count mod 5 =0) then
response.write "</tr><br>"
end if
count=count+1
rs.movenext
loop
end if
Response.Write"</tr></td></table>"
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -