📄 photo_view.asp
字号:
submitflag=true
return true
}
else
{
alert("请不要重复提交");
return false;
}
}
</script>
<form name="form1" method="post" action="?action=replyphoto&picid=<%=picid%>" onkeydown="if(event.keyCode==13 && event.ctrlKey){if(check_Csk3000_form(this)){this.submit();}}">
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#666666" bgcolor="#FFFFFF" class="liu">
<tr>
<td colspan="2" class="title"><a name="reply"></a>发表评论</td>
</tr>
<tr bgcolor="#666666">
<td width="25%" bgcolor="#FFFFFF">插入UBB标签</td>
<td width="79%" height="22" bgcolor="#FFFFFF" style="padding-left:7px; padding-right:3px;line-height:1.5;"><a href="javascript:addcontent('[B]','[/B]');" title=粗体><img src="images/ubb/bold.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[I]','[/I]');" title=斜体><img src="images/ubb/italicize.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[U]','[/U]');" title=下划线><img src="images/ubb/underline.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[ALIGN=CENTER]','[/ALIGN]');" title=居中><img src="images/ubb/center.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[URL]','[/URL]');" title=链接><img src="images/ubb/url1.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[EMAIL]','[/EMAIL]');" title=邮件><img src="images/ubb/email1.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[IMGA]','[/IMGA]');" title=图片><img src="images/ubb/image.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[FLASH]','[/FLASH]');" title=Flash><img src="images/ubb/swf.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[CODE]','[/CODE]');" title=代码><img src="images/ubb/code.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[QUOTE]','[/QUOTE]');" title=引用><img src="images/ubb/quote1.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[FLY]','[/FLY]');" title=飞行><img src="images/ubb/fly.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[MOVE]','[/MOVE]');" title=移动><img src="images/ubb/move.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[GLOW=255,RED,2]','[/GLOW]');" title=发光><img src="images/ubb/glow.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[SHADOW=255,RED,2]','[/SHADOW]');" title=阴影><img src="images/ubb/shadow.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[SIZE=3]','[/SIZE]');" title=3号字><img src="images/ubb/size3.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[COLOR=blue]','[/COLOR]');" title=蓝色字><img src="images/ubb/blue.gif" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[COLOR=red]','[/COLOR]');" title=红色字><img src="images/ubb/red.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[MP=320,240]','[/MP]');" title=插入Media文件><img src="images/ubb/media.gif" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[RM=320,240]','[/RM]');" title=插入RealPlay文件><img src="images/ubb/real.gif" width="20" height="20" align="absmiddle" border=0></a></td>
</tr>
<tr bgcolor="#666666">
<td valign="top" bgcolor="#FFFFFF"><span class="style1"><br>
注意：</span><br> <span class="style1"> </span>帖子内容不要超过2000;<br>
<span class="style1"> </span>HTML标记 不支持；<br> <span class="style1"> </span>UBB代码
支持<br> <span class="style2"> </span><span class="style1"> </span><span class="style2">(Ctrl+Enter提交)</span>
<br> <a href="ubbhelp.asp" target="_blank"><span class="style1"> </span>内容支持插入UBB标签<br>
<span class="style1"> </span>使用方法请参考帮助 <span class="style2">
</span></a></td>
<td bgcolor="#FFFFFF" style="padding-left:7px; padding-right:3px;line-height:1.5;">
<textarea name="Form_Content" cols="80" rows="15" id="Form_Content"></textarea>
</td>
</tr>
<tr>
<td height="40" align="center">插入表情,时间</td>
<td height="40" align="left"> <a href="javascript:addcontent('[em01]','');"><img src="images/UBBicon/em01.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em02]','');"><img src="images/UBBicon/em02.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em03]','');"><img src="images/UBBicon/em03.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em04]','');"><img src="images/UBBicon/em04.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em05]','');"><img src="images/UBBicon/em05.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em06]','');"><img src="images/UBBicon/em06.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em07]','');"><img src="images/UBBicon/em07.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em08]','');"><img src="images/UBBicon/em08.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em09]','');"><img src="images/UBBicon/em09.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em10]','');"><img src="images/UBBicon/em10.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em11]','');"><img src="images/UBBicon/em11.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em12]','');"><img src="images/UBBicon/em12.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em13]','');"><img src="images/UBBicon/em13.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:addcontent('[em14]','');"><img src="images/UBBicon/em14.GIF" width="20" height="20" align="absmiddle" border=0></a>
<a href="javascript:var d; d=new Date();addcontent(d.getYear()+'-'+rightStr('0'+(d.getMonth()+1),2)+'-'+rightStr('0'+d.getDate(),2)+' '+rightStr('0'+d.getHours(),2)+':'+rightStr('0'+d.getMinutes(),2)+':'+rightStr('0'+d.getSeconds(),2),'');" title="插入时间"><b>T</b></a>
</td>
</tr>
<tr>
<td height="40" colspan="2" align="center"> <span style="color:#ff0000;font-weight:bold;">(Ctrl+Enter提交)</span>
<input type="submit" name="Submit" value="提 交" onClick="return check_Csk3000_form(this.form)">
<input type="reset" name="Submit3" value="重 填"> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%End Sub%>
<%sub replyphoto
dim studentid,content,pubtime
Dim str_succ
if outsitesubmit then
printerror "回复影音论坛帖子出错","<li>请不要外部提交数据！</li>",779
exit sub
end if
If session("username")="" then
Call printerror ("回复手机相册留言出错","<li>您还没有登录，请先<a href='"&const_txl_HomeUrl&"user_login.asp'>登录</a>再发布留言！</li>",779)
exit sub
end if
username=Session("username")
pubtime=now()
content=Trim(Request.Form("Form_Content"))
if content="" or isnull(content) Then
printerror "回复手机相册留言出错","<li>请输入留言内容！</li>",779
exit sub
end if
content=Replace(content,"'","''")
content=HtmlEncode_walk(content)
sql="insert into photoforum(username,content,picid,pubtime)values('"
sql=sql&username&"','"&content&"','"&picid&"','"&pubtime&"')"
conn.execute (sql)
sql="update photo set liuyanshu=liuyanshu+1,LastUpdateTime='"&now()&"',LastUpdateUser='"&username&"',LastUpdateInfo='最后更新："&username&" "&now()&"<BR>"&Left(content,10)&"' where picid="&picid
conn.execute (sql)
str_succ="<li>恭喜你，回复手机相册留言成功！"&Vbcrlf
str_succ=str_succ&"<li><a href='?picid="&picid&"' title='浏览你刚才回复的手机相册留言'>点这里浏览你刚才回复的手机相册留言</a>，系统5秒转到新留言！</li>"&Vbcrlf
str_succ=str_succ&"<li>回<a href='photo_show.asp'>手机相册</a></li>"
Call printsuc("回复手机相册留言",str_succ,779)
Response.write "<meta http-equiv=""refresh"" content='5;URL=?picid="&picid&"'>"
end sub
Sub delpl
Dim rs,tmpstr
set rs= server.CreateObject("Adodb.Recordset")
rs.open "select * from photoforum where id="&Clng(Request("ID")),conn
If Rs.Eof Then
Call printerror("删除评论出错","<li>评论不存在</li>",779)
exit sub
Else
If Rs("username") = Session("username") Then
conn.execute ("Delete from photoforum where id="&Clng(Request("ID")))
tmpstr="<li>已经成功删除标号为"&Request("ID")&"的评论！</li>"
tmpstr=tmpstr&"<li>回<a href='photo_show.asp'>手机相册</a>！</li>"
tmpstr=tmpstr&"<li>回<a href='?picid="&Request("picid")&"'>刚才浏览照片</a>！</li>"
Call printsuc("删除照片成功！",tmpstr,779)
Exit Sub
Else
Call printerror("删除评论出错","<li>用户无权限</li>",779)
exit sub
End If
End If
End Sub
sub del
dim limitflag,dealuser,picimgname,username,tmpstr
Dim rs,dellogid,sql
set rs=conn.execute ("select * from photo where picid="&picid)
IF rs.eof then
errstr="<li>不存在标号为"&picid&"的影音相片,该相片可能已经被删除</li>"
errstr=errstr&"<li>请选择<a href='photo_show.asp'手机相册</a>重新进入</li>"
Call printerror("读取相片出错",errstr,779)
exit sub
end if
picimgname=rs("pic")
limitflag=false
If session("adminname")<>"" Then
limitflag=true
dealuser="管理员"
End If
username=Session("username")
If rs("username")=username Then
limitflag=true
dealuser=username
end if
rs.close
set rs=nothing
If not(limitflag) Then
Call printerror ("删除相片出错！","<li>你没有操作该功能的权限！</li>",779)
exit sub
Else
If Request("queren")<>"true" Then
Response.write "<div align=center><br><font color=red>本操作正在删除影音照片，且不可恢复。你确实要进行该操作吗？<br>请点击下面的“确定”按钮继续执行操作,点击“取消”来撤消本次操作。</font><br><br>"
Response.write "<input type=button value='确定' onclick=""javascript:window.location.href='?action=del&picid="&picid&"&queren=true&url="&Request.ServerVariables("HTTP_REFERER")&"'""> <input type=button value='取消' onclick='javascript:history.back()'><br><br></div>"
Else
conn.Execute ("delete from photoforum where picid="&picid) '删除回复留言
conn.Execute ("delete from photo where picid="&picid) '删除相片
set rs=conn.execute ("select top 1 id from dellog order by id desc")
if rs.eof then
dellogid=1
else
dellogid=rs(0)+1
end if
sql="insert into dellog(id,sname,pic,deltime)values("
sql=sql&dellogid&",'"&dealuser&"','"&picimgname&"','"&now()&"')"
conn.execute (sql) '做删除记录
tmpstr="<li>已经成功删除标号为"&picid&"的照片，照片下面的回复帖也已经删除！</li>"
tmpstr=tmpstr&"<li>回<a href='photo_show.asp'>手机相册</a>！</li>"
Call printsuc("删除照片成功！",tmpstr,779)
End IF
End If
end sub
SUb pre_next
Dim rs,id,tmpstr
tmpstr=""
Set rs=conn.execute ("select top 1 picid from photo where picid>"&picid&" order by picid asc")
If Not rs.eof Then
tmpstr=tmpstr&"<a href='?picid="&rs(0)&"'><font color='#FFFFFF'><<上一张</font></a>"
Else
tmpstr=tmpstr&"<font color='#FFFFFF'><<上一张</font>"
End If
rs.close
set rs=nothing
tmpstr=tmpstr&" <a href=""javascript:window.location.reload();""><font color='#FFFFFF'>刷新</font></a> "
Set rs=conn.execute ("select top 1 picid from photo where picid<"&picid&" order by picid desc")
If Not rs.eof Then
tmpstr=tmpstr&"<a href='?picid="&rs(0)&"'><font color='#FFFFFF'>下一张>></font></a>"
Else
tmpstr=tmpstr&"<font color='#FFFFFF'>下一张>></font>"
End If
rs.close
set rs=nothing
Response.Write(tmpstr)
Response.Flush()
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -