📄 addnews.asp
字号:
<!--#include file="conn.asp" -->
<%
function htmlencode(str)
htmlencode=replace(replace(str,chr(13),"<br>"),"'","''")
end function
dim rs,sql
set rs=server.createobject("adodb.recordset")
if request.querystring="add" then
sql="select * from admin where user='"&request("admin")&"' and pwd='"&request("pass")&"'"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
response.write "<center>用户名/密码错！新闻没有保存...</center>"
rs.close
else
response.cookies("admin")=request("admin")
response.cookies("pass")=request("pass")
rs.close
if request("title")="" or request("content")="" then
response.write "<center>没有填写完必须的内容！新闻没有保存...</center>"
else
sql="select * from news where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("cataid")=request("cataid")
rs("title")=request("title")
if request("linktitle")<>"" then rs("linktitle")=request("linktitle")
if request("linkurl")<>"" then rs("linkurl")=request("linkurl")
if request("image")<>"" then rs("image")=request("image")
rs("addtime")=date()
rs("special")=request("special")
rs("content")=htmlencode(request("content"))
rs("hits")=1
rs.update
rs.close
response.write "<center>新闻已经成功保存了...</center>"
end if
end if
end if
%>
<html>
<head>
<title>QbTrade.com最新消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<form name="form1" method="post" action="addnews.asp?add">
<div align="center"><font color="#FF0000" face="Arial, Helvetica, sans-serif">QB</font><font face="Arial, Helvetica, sans-serif">Trade.com</font>
- 增加新闻 </div>
<table width="38%" border="1" align="center" bgcolor="#FF9966" cellspacing="0" cellpadding="0" bordercolor="#FFCC66">
<tr>
<td>
<div align="center">管理员名称：
<input type="text" name="admin" value="<%=request.cookies("admin")%>">
</div>
<div align="center">管理员密码：
<input type="password" name="pass" value="<%=request.cookies("pass")%>">
</div>
<div align="center">*注意：必须输入此密码才能修改新闻</div>
</td>
</tr>
</table>
<table width="80%" border="0" align="center">
<tr>
<td>新闻类别：</td>
<td>
<select name="cataid">
<%
on error resume next
sql="select * from category"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<option value='没有类别'>没有类别</option>"
else
do while not rs.eof
response.write "<option value='"&rs("title")&"'"
if rs("title")=request("cata") then response.write " selected"
response.write ">"&rs("title")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=Nothing
endconnection
%>
</select>
</td>
</tr>
<tr>
<td>新闻标题：</td>
<td>
<input type="text" name="title" size="66">
</td>
</tr>
<tr>
<td>图片链接：</td>
<td>
<input type="text" name="image" size="66">
</td>
</tr>
<tr>
<td valign="top">新闻内容：</td>
<td>
<textarea name="content" cols="66" rows="8" wrap="VIRTUAL"></textarea>
</td>
</tr>
<tr>
<td>链接标题：</td>
<td>
<input type="text" name="linktitle" size="66">
</td>
</tr>
<tr>
<td>链接地址：</td>
<td>
<input type="text" name="linkurl" size="66">
</td>
</tr>
<tr>
<td>特别消息： </td>
<td>
<input type="checkbox" name="special" value="true" checked>
注意：以上新闻标题和新闻内容必须填写，其他可以不填，可以使用html语言。</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="保存">
<input type="reset" name="Submit2" value="取消">
<input type="button" name="Submit3" value="返回" onclick="location.href='default.asp'">
</div>
</td>
</tr>
</table>
<div align="center">[<a href="admin.asp">返回管理</a>] [<a href="default.asp">返回主页</a>]
[<a href="addcata.asp">管理类别</a>] </div>
</form>
<script language="JavaScript" src="copyright.js">
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -