admin_news_pl_view.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("News_Comment") Then
	Call ArtErr("","")
End If
%>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<SCRIPT LANGUAGE="JavaScript">
function f_frameStyleResize(targObj){
 var targWin = targObj.parent.document.all[targObj.name];
 if(targWin != null) {
  var HeightValue = targObj.document.body.scrollHeight
  if(HeightValue < 10 ){HeightValue = 10} 
  targWin.style.pixelHeight = HeightValue;
 }
}
function f_iframeResize(){
 bLoadComplete = true; f_frameStyleResize(self);
}
var bLoadComplete = false;
window.onload = f_iframeResize;
</SCRIPT>
<title>查看评论</title>
<%
id=trim(request("id"))
action=trim(request("action"))
editcontent=trim(request("editcontent"))


if id="" then
	Response.Write "<table border=0><tr><td height=25>　</td></tr></table>"
	Response.end
end if
if action="save" and id<>"" and editcontent<>"" then
	conn.Execute "update [newspl] set [content]='"&editcontent&"' where id="&clng(id)
end if

sql = "select * from newspl where id="&clng(ID)
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

content=rs("content")

rs.close
set rs=nothing
conn.close
set conn=nothing
%>	<table border="0" cellpadding="20" cellspacing="0" width="100%" id="table1" height="100%">
		<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="VBScript" Type="text/vbscript"><!--
function FrontPage_Form1_onsubmit()
  Set theForm = document.FrontPage_Form1

  If (theForm.editcontent.value = "") Then
    MsgBox "请在 评论内容 域中输入值。", 0, "有效性验证错误"
    theForm.editcontent.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.editcontent.value) < 1) Then
    MsgBox "在 评论内容 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.editcontent.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If
  FrontPage_Form1_onsubmit = True 
End Function
--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_pl_view.asp?action=save&id=<%=id%>" name="FrontPage_Form1">
<tr>
			<td align=center >
				&nbsp;<!--webbot bot="Validation" s-display-name="评论内容" b-value-required="TRUE" i-minimum-length="1" --><textarea rows="7" name="editcontent" cols="98"><%=content%></textarea><br><br>
				<input type="submit" value="　　修改保存　　" name="B1"> <input type='button' value='关闭' onclick="javascript:location.href='?gb=1'">
						</td>
		</tr></form>
	</table>