📄 paddnews.asp

📁 .　缓存处理技术
💻 ASP
字号:
<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp" -->
<!--#include file="../Inc/DataUpdate_Application.asp" -->
<%
if rst("title")="" then
%>

<html>
<head>
<title><%=SYS_WEBNAME%></title>
<script language="javascript">
function check()
{
if(document.form1.title.value=="")
{
alert("信息标题不能为空");
return false;
}
if(document.form1.author.value=="")
{
alert("发布人名称不能为空");
return false;
}
if(document.form1.content.value=="")
{
alert("信息内容不能为空");
return false;
}
}
</script>
</head>
<body Topmargin=0 Leftmargin=0>
<%
With ReSponse
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"  <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr height=32> "& vbcrlf
  .Write"  <td width=80% background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif"">&nbsp;<img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""help.asp"" class=menuColor_1><b>后台管理</b></a>&gt;&gt;&gt; <a href=""PAddNews.asp"" class=menuColor_1><b>添加系统信息</b></a> </td>"& vbcrlf
  .Write"  <td width=20% background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif""><img src=""../Skins/"& Skins_Folder &"/Ring.gif"" border=""0""> <a href=""PEditNews.asp"" class=menuColor_1><b>修改系统信息</b></a> </td>"& vbcrlf
  .Write" </tr>"& vbcrlf
  .Write"</table>" & Vbcrlf
End With
%>
<table cellpadding=0 cellspacing=1 border=0 width=98% height=206 align=center class=tablebg>
<form action="paddnews.asp" method="post" name="form1" onsubmit="javascript:return check();"
<tr>
<td width=30% align=center class=titletd colspan=2 height=20>------->添 加 信 息<-------</td>
</tr>
<tr>
<td width=30% align=right class=td>信息标题：</td><td align=left class=td><input name=title type=text size=50 maxlength=100></td>
</tr><tr>
<td width=30% align=right class=td>信息类型：</td><td align=left class=td>
<select name=infoType>
<%
Dim Temp1,Temp2,Temp3
Temp1="0"
Temp2="0,1"
Temp3="新闻，帮助"
Call SelectOper(temp1,temp2,temp3)
%>
</select>
</td>
</tr>
<tr>
<td width=30% align=right class=td>标题着色：</td><td align=left class=td>
<select name=color>
<option value="black" selected>黑色</option>
<option value="red">红色</option>
<option value="blue">蓝色</option>
</select>
</td>
</tr>
<tr>
<td width=30% align=right class=td>发 布 人：</td><td align=left class=td><input name=author type=hidden value=0><input name=authorname type=text size=50 value="管理员" maxlength=20 readonly></td>
</tr>
<tr>
<td width=30% align=right class=td>信息内容：</td><td align=left class=td><textarea name=content cols=60 rows=8></textarea></td>
</tr>

<tr>
<td width=30% align=center colspan=2 class=td><input name=submit type=submit value=添加>&nbsp;&nbsp;&nbsp;&nbsp;<input name=reset type=reset value=重写></td>
</tr>
</form>
</table>

</BODY>
</HTML>

<%
else
Call CheckAdminFlag(TempAdminFlag,2)
Dim BBR_IsHelp
BBR_IsHelp=CheckStr(trim(rst("InfoType")))
if Not isNum(BBR_IsHelp) then Call AlertInfo("无效的信息类型参数传递，请返回重新尝试！","",0)

set rs=server.createobject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,3
rs.addnew
rs("newstitle")=trim(rst("title"))
rs("newsauthor")=trim(rst("author"))
rs("newscontent")=HTMLENCODE(trim(rst("content")))
Rs("BBR_IsHelp")=BBR_IsHelp
rs("newscolor")=rst("color")
rs("updatetime")=now()
rs.update
session("add")="success"
rs.close
set rs=nothing

Application.Lock
  Application("CnbbrSysNews")=Cnbbr_SysNews
  Application("AucLastUpdate0")=CStr(Now)
Application.Unlock

response.write"<script language=javascript>alert('信息发布成功！');"
response.write"this.location.href='paddnews.asp';</script>"
response.end
end if

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -