📄 edit.asp
字号:
<!--#include file="sub.asp" -->
<!--#include file="conn.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css.css" rel="stylesheet" type="text/css" />
<title><%=webname%></title>
</head>
<body>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if session("user")="" and session("zdqx")<>"alladmin" then
response.write"<script language=javascript>alert('你不能执行该操作,可能原因\n\n1、不是管理员\n\n2、你还没有登陆\n\n3、或者登陆超时\n\n4、没有该操作权限');location.href='index.asp' </script>"
response.End()
end if%>
<script> //按cter+enter发表留言
function test()
{
if(window.event.keyCode==13&&window.event.ctrlKey)
{
document.zdform.submit();
}
}
function jia()
{
document.zdform.m_message.rows=document.zdform.m_message.rows+10
}
function jian()
{
document.zdform.m_message.rows=document.zdform.m_message.rows-10
}
function bq(em)
{
document.zdform.m_message.value=document.zdform.m_message.value+'[em]'+em+'[/em]'
}
</script>
<body onkeydown="test();">
<%
id=request.QueryString("id")
exec2="select * from zdi where cint(m_id)='"&id&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec2,conn,1,3
%>
<%
set rs1=server.createobject("adodb.recordset")
id=request.QueryString("id")
if request.QueryString("act")="edit" then
rs1.open "select * from zdi where cint(m_id)=" & id,conn,1,3
if len(request.Form("m_bt"))>30 or request.Form("m_bt")="" then
mgbox "留言主题不能为空或者大于30个字符"
response.End()
end if
if len(request.Form("m_message"))<5 or len(request.Form("m_message"))>2000 then
mgbox "留言内容必须大于5个字符小于2000个字符"
response.End()
end if
if rs1("m_con")=0 then
set rs2=server.createobject("adodb.recordset")
rs2.open "select * from zdi where cint(m_con)=" & id,conn,1,3
do while not rs2.eof
rs2("m_flid")=request.Form("m_flid")
rs2.movenext
loop
rs2.update
rs2.close
end if
rs1("m_bt")=server.HTMLEncode(request.Form("m_bt"))
rs1("m_flid")=request.Form("m_flid")
rs1("m_message")=server.HTMLEncode(request.Form("m_message"))
rs1.update
rs1.close
response.Write("<font color='ff0000' size='+2'>留言修改成功,</font>")
exec2="select * from zdi where cint(m_id)= "&request.QueryString("id")
set rs=server.createobject("adodb.recordset")
rs.open exec2,conn,1,3
end if
if rs("m_con")=0 then
response.Write("<a href='view.asp?id="&rs("m_id")&" '><font color='ff0000' size='+2'>返回帖子</font></a>")
else
response.Write("<a href='view.asp?id="&rs("m_con")&" '><font color='ff0000' size='+2'> 返回帖子 </font></a>")
end if
%>
<a href="#edit"><font color="#0000FF"><font size="+2"> 编辑 </font></font></a>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0"style="word-break:break-all" >
<%set rsi=server.createobject("adodb.recordset")
execi="select * from zdi where m_id="&request.QueryString("id")
rsi.open execi,conn,1,1
set rsu=server.createobject("adodb.recordset")
execu="select * from zdu where u_name='"&rsi("m_user")&"'"
rsu.open execu,conn,1,1
set rsfl=server.createobject("adodb.recordset")
execfl="select * from zdfl where f_id="&rsi("m_flid")
rsfl.open execfl,conn,1,1%>
<tr>
<td height="15" colspan="3" align="left"> </td>
</tr>
<tr bordercolor="#0099CC" bgcolor="#0099CC" a name="#TOP">
<td colspan="3" align="left"><table width="100%" border="0">
<tr>
<td height="20" class="dhzi">[<%=rsfl("f_name")%>] <%=rsi("m_bt")%></td>
</tr>
</table></td>
</tr>
<tr bordercolor="#0099CC" >
<td width="15%" rowspan="3" align="center" valign="top" bordercolor="#0099CC" class="biaogebiankuang"><table width="100%" height="89" border="0">
<tr>
<td align="center"><%response.Write(rsi("m_user")) %></td>
</tr>
<tr>
<td align="center"><img src="<%if rsi("m_user")="游客" then response.Write("images/face/2.gif") else response.Write(rsu("u_face")) end if%>" border="0" /></td>
</tr>
<tr>
<td align="center">等级：<font color="#FF0000">
<%ZDdj=rsu("u_qx")
select case zddj
case ""
response.Write("游客")
case "user"
response.Write("会员")
case "admin"
response.Write("管理员")
case "alladmin"
response.Write("超级管理员")
end select%>
</font></td>
</tr>
</table></td>
<td width="36%" align="left" class="biaogebiankuang" >发表与：<%=rsi("m_time")%></td>
<td align="left" class="biaogebiankuang">
<%if rsi("m_user")<>"游客" then
if rsu("u_qq")<>"" then %>
<a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rsu("u_qq")%>&Site=紫蝶轩留言本&Menu=yes" target="_blank">QQ</a> |
<% END IF
if rsu("u_mail")<>"" then response.Write("<a href=mailto:"&rsu("u_mail")&">mail</a> | ")
if rsu("u_home")<>"" then response.Write("<a href='"&rsu("u_home")&"'target='_blank'>Home</a> |")
end if%>
<b><font color="#FF0000">
<%if rsi("m_jh")="true" then response.Write("[精华主题] ")
if rsi("m_ding")="true" then response.Write(" [置定主题]") %>
<b><font color="#FF0000"></font></b></font></b></td>
</tr>
<tr bordercolor="#0099CC" >
<td height="67" colspan="2" align="left" valign="top" class="biaogebiankuang" style="word-break:break-all"onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';"><table width="100%" height="100%" border="0" >
<tr>
<td align="left" valign="top" class="a1" >
<%
if session("zdqx")="admin" or session("zdqx")="alladmin" then
if rsi("m_sh")="false" then
response.Write("<font color='#FF0000'>以下内容未经过审核</font><BR>--------------------------------------<BR>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -