📄 bjphotoadd.asp
字号:
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="head.asp"-->
<%bid=clng(request("bid"))
if bid="" or bid<1 then ShowError("访问的班级不存在")
rs.open "select * from bj where id="&bid&"",conn,1,1
If Rs.eof Then ShowError("访问的班级不存在")
if rs("isopen")=1 and session("xyluserid")="" then ShowError("你访问的班级禁止游客访问")
if rs("isopen")=2 then
if session("xyluserid")="" then ShowError("你访问的班级禁止非班级成员访问")
if obj.inbj(session("xyluserid"),bid,SiteDatabase)<>1 then ShowError("你访问的班级禁止非班级成员访问")
end if
bjname=rs("bjname")
rs.close%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename%>-<%=bjname%>-相册</title>
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body>
<%call bjhead(bid,bjname)%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="291" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr>
<td height="25"> <img src="skins/1/xb3.gif"> 当前位置:<a href="bjindex.asp?bid=<%=bid%>">班级首页</a> >> <a href="bjphoto.asp?bid=<%=bid%>">班级相册</a> >> 上传照片</td>
</tr>
</table>
<br>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="0" class="border">
<tr>
<td><B>注意事项：</B><BR>
1. 请勿发布违反计算机信息网络安全相关条例的有害信息，一经发现，后果自负！<BR>
2. 请勿发布和与本站内容无关的照片（如卡通、壁纸、电影剧照、海报、明星、球星、宠物、植物等）。<BR>
3. 仅接受JPG,GIF和BMP格式的图片,大小不超过<FONT color=brown><%=PhotoMaxSize%>K</FONT>。<br>
4. 图片最好别用BMP格式，因为它的压缩率太差，图片文件较大，最好将它转换成JPG或GIF再上传</td>
</tr>
</table>
<br>
<%Select Case request("type2")
Case "edit":
Call edit
Case "edit2":
Call edit2
Case Else:
call show
End Select
sub show%>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<form action="bjphotoup.asp?bid=<%=bid%>" enctype="multipart/form-data" name="form1" method="post"> <tr>
<td width="23%" height="20"><div align="center">上传帐号：</div></td>
<td width="77%"> <b><%=session("xyluser")%></b></td>
</tr>
<tr>
<td height="20"><div align="center">图片标题：</div></td>
<td><input name="title" type="text" class="border" id="title" size="40" maxlength="50"></td>
</tr>
<tr>
<td height="20"><div align="center">图片类别：</div></td>
<td><select name="type1" size="1" id="type1">
<%rs.open "select * from piclb order by id",conn,1,1
If Rs.eof and Rs.bof Then
Response.Write("<option value='' selected>暂无分类</option>")
else
do while not rs.eof
Response.Write("<option value="&rs(0)&">"&rs(1)&"</option>")
rs.movenext
loop
end if
rs.close%>
</select></td>
</tr>
<tr>
<td height="20"><div align="center">存放位置：</div></td>
<td><input name="type2" type="radio" value="2" checked>
允许放入学校相册
<input type="radio" name="type2" value="1">
不允许放入学校相册</td>
</tr>
<tr>
<td height="20"><div align="center">是否展示：</div></td>
<td><input name="ishc" type="radio" value="1" checked>
是
<input type="radio" name="ishc" value="0">
否 （选择“是”，将参加校花校草的评比）</td>
</tr>
<tr>
<td height="20"><div align="center">图片文件：</div></td>
<td><input name="strFile1" type="file" class="border" id="strFile1" size="30"></td>
</tr>
<tr>
<td height="40"><div align="center">图片介绍：</div></td>
<td><textarea name="remark" cols="40" rows="8" id="remark"></textarea></td>
</tr>
<tr>
<td height="30"> </td>
<td> <input type="submit" name="Submit" value="提 交"></td>
</tr></form>
</table>
<%end sub
sub edit
id=clng(obj.regstr(request("id")))
if id="" or id<0 then ShowError("缺少必要的参数")
rs.open "select * from photo where id="&id&"",conn,1,1
if rs.eof then ShowError("照片不存在")
if rs("userid")<>session("xyluserid") and session("sitejob")<>3 then ShowError("无权进行此操作")%>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<form action="?type2=edit2&id=<%=id%>&bid=<%=bid%>" name="form1" method="post">
<tr>
<td height="20"><div align="center">图片标题：</div></td>
<td><input name="title" type="text" class="border" id="title" value="<%=rs("title")%>" size="40" maxlength="50"></td>
</tr>
<tr>
<td height="20"><div align="center">图片类别：</div></td>
<td><select name="type1" size="1" id="type1">
<%Set rs2 = Server.CreateObject("Adodb.Recordset")
rs2.open "select * from piclb order by id",conn,1,1
If Rs2.eof and Rs2.bof Then
Response.Write("<option value='' selected>暂无分类</option>")
else
do while not rs2.eof
if rs("type1")=rs2(0) then
Response.Write("<option value="&rs2(0)&" selected>"&rs2(1)&"</option>")
else
Response.Write("<option value="&rs2(0)&">"&rs2(1)&"</option>")
end if
rs2.movenext
loop
end if
rs2.close%>
</select></td>
</tr>
<tr>
<td height="20"><div align="center">是否展示：</div></td>
<td><input name="ishc" type="radio" value="1"<%if rs("ishc")=1 then response.write " checked" end if%>>
是
<input type="radio" name="ishc" value="0"<%if rs("ishc")<>1 then response.write " checked" end if%>>
否 （选择“是”，将参加校花校草的评比）</td>
</tr>
<tr>
<td height="40"><div align="center">图片介绍：</div></td>
<td><textarea name="remark" cols="40" rows="8" id="remark"><%=rs("remark")%></textarea></td>
</tr>
<tr>
<td height="30"> </td>
<td> <input type="submit" name="Submit" value="提 交"></td>
</tr></form>
</table>
<%end sub
sub edit2
id=clng(obj.regstr(request("id")))
if id="" or id<0 then ShowError("缺少必要的参数")
title=obj.HtmlEncode(request("title"))
remark=obj.HtmlEncode(request("remark"))
type1=obj.HtmlEncode(request("type1"))
ishc=obj.HtmlEncode(request("ishc"))
if title="" or remark="" or type1="" or ishc="" then ShowError("缺少必要的参数")
rs.open "select * from photo where id="&id&"",conn,1,3
if rs.eof then ShowError("照片不存在")
if rs("userid")<>session("xyluserid") and session("sitejob")<>3 then ShowError("无权进行此操作")
rs("title")=title
rs("remark")=remark
rs("type1")=type1
rs("ishc")=ishc
rs.update
rs.close
a=obj.gourl(" 页面三秒后将自动返回您所操作的照片，可以继续选择以下操作：<br><br> 返回<A href='bjphoto.asp?bid="&bid&"'>[班级相册]</a><br><br> 到<A href='bjphotoview.asp?id="&id&"&bid="&bid&"'>[刚操作的照片]</a>","bjphotoview.asp?id="&id&"&bid="&bid&"")
end sub
%>
<br>
</td>
</tr>
</table>
<%sitebottom%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -