📄 newsmodi.asp
字号:
<%
if request.servervariables("REQUEST_METHOD")<>"POST" then
response.redirect "index.asp"
response.end
end if
%>
<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/char.inc" -->
<html>
<head>
<title>3鸟设社网站评测—新闻发布</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
</head>
<body leftmargin="0" bgcolor="#FFFFFF" topmargin="0">
<!--#include file="top.htm" -->
<br>
<br><%
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from news where neirong='" & Trim(request.form("neirong")) & "'",conn,1,3
if not(rs.bof and rs.eof) then
%>
<table width="400" border="0" cellspacing="1" cellpadding="0" align="center" class="9p" bgcolor="#0000FF">
<tr bgcolor="#FF6633">
<td bgcolor="#0000FF" height="19">
<div align="center"><font color="#FFCC00"><b><font color="#FFFFFF">海南网站联</font></b></font><font color="#FFCC00"><b><font color="#FFFFFF">盟</font></b></font><font color="#FFFFFF"><b>提示</b></font></div>
</td>
</tr>
<tr bgcolor="#FF6633">
<td bgcolor="#FFFFFF">
<p> </p>
<p align="center"><font color="#FFCC00"> <font color="#cc3366">您所要发布的新闻已经有相同内容，请返回后重新发布！</font></font></p>
<p align="center">
<input type="button" name="Button" value=" 返 回 " class="buttonface" onclick="javascript:history.back()">
</p>
<p align="center"> </p>
</td>
</tr>
</table>
<%
else
rs.addnew
rs("neirong")=htmlencode2(Trim(request.form("neirong")))
rs("biaoti")=htmlencode2(Trim(request.form("biaoti")))
rs("fabuzhe")=htmlencode2(Trim(request.form("fabuzhe")))
rs("weburl")=htmlencode2(Trim(request.form("weburl")))
rs.update
set rsa=server.createobject("adodb.recordset")
rsa.open "Select * from news where neirong='"&Trim(request.form("neirong"))&"'",conn
if rsa.eof and rsa.bof then
%>
<table width="400" border="0" cellspacing="1" cellpadding="0" align="center" class="9p" bgcolor="#0000FF">
<tr bgcolor="#FF6633">
<td bgcolor="#EDB7D1" height="21">
<div align="center"><font color="#FFCC00"><b><font color="#FFFFFF">3鸟设社网站评测提示</font></b></font></div>
</td>
</tr>
<tr bgcolor="#FF6633">
<td bgcolor="#FFFFFF">
<p> </p>
<p align="center"><font color="#cc3366">数据处理过程中发生错误，请与本盟<a href="mailto:fujian1979@263.net">管理员</a>联系，谢谢！</font></p>
<p align="center">
<input type="button" name="Button2" value=" 返 回 " class="buttonface" onclick="javascript:history.back()">
</p>
<p align="center"> </p>
</td>
</tr>
</table>
<% else %>
<table width="400" border="0" cellspacing="1" cellpadding="0" align="center" class="9p" bgcolor="#EDB7D1">
<tr bgcolor="#FF6633">
<td bgcolor="#0000FF" height="21">
<div align="center"><font color="#FFFFFF"><b>3鸟设社网站评测祝贺</b></font></div>
</td>
</tr>
<tr bgcolor="#FF6633">
<td bgcolor="#FFFFFF" height="128">
<p> </p>
<p align="center"><font color="#FFCC00"> <font color="#cc3366">恭喜您!<b><font color="#0000FF">站点新闻</font></b>发布成功！</font></font></p>
<p align="center">
<input type="button" name="Button2" value=" 返 回 " class="buttonface" onclick="javascript:location.href='index.asp'">
</p>
<p align="center"> </p>
</td>
</tr>
</table>
<%
end if
rsa.close
set rsa=nothing
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -