用文本+ASP打造新闻发布系统(二)新闻添加

2016-01-29 20:20 5 1 收藏

用文本+ASP打造新闻发布系统(二)新闻添加,用文本+ASP打造新闻发布系统(二)新闻添加

【 tulaoshi.com - ASP 】

<!--#include file="news_session.asp"--
<html
<head

<meta http-equiv="Content-Language" content="zh-cn"
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<style type="text/css"
.buttonface {
BACKGROUND-COLOR: #0079F2; BORDER-BOTTOM: #333333 1px outset; BORDER-LEFT: #333333 1px outset; BORDER-RIGHT: #ffffff 1px outset; BORDER-TOP: #ffffff 1px outset; COLOR: #ffffff; FONT-SIZE: 9pta { color: #000000; text-decoration: none}
</style
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript
<!--

function client_onblur(ii) {
server=eval("form1.server"+ii)
if(server.value==""){
client=eval("form1.client"+ii)
clientvalue=client.value+""
varlen=clientvalue.length
a=clientvalue.lastIndexOf('')
clientvalue=clientvalue.substring(a+1)
//alert(clientvalue);
server.value=clientvalue
}
}
function form1_onsubmit() {
for(i=1;i<1;i++){
client=eval("form1.client"+i)
server=eval("form1.server"+i)
if(client.value!="" && server.value==""){alert("上传后的文件名不能空!");server.focus();return false}
}
}

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)

//--
</SCRIPT
<title新闻发布系统</title
</head
<body bgcolor=#EDF0F5 topmargin=10 marginheight=5 leftmargin=4 marginwidth=0

<form method="POST" action="news_input.asp" name="form1" enctype="multipart/form-data" LANGUAGE=javascript onsubmit="return form1_onsubmit()"
<div align="left"
<table border="1" width="754" height="404"
<tr align="center"
<td width="754" height="28" colspan="3" style="font-size:11pt"<strong新闻发布系统后台管理--新闻添加</strong</td
</tr

<tr
<td width="121" height="16" align="center" style="font-size:9pt"新闻标题</td
<td width="617" height="16" colspan="2"
<input type="text" name="news_title" size="87"</td
</tr
<tr
<td width="121" height="165" align="center" style="font-size:9pt"新闻内容</td
<td width="617" height="165" colspan="2"<textarea rows="11" name="news_content" cols="85"</textarea</td
</tr
<tr
<td width="121" height="21" align="center" style="font-size:9pt"新闻来源</td
<td width="617" height="21" colspan="2"
<input type="text" name="news_src" size="87"</td
</tr
<tr
<td width="121" height="20" align="center" style="font-size:9pt" 图片上传</td
<td width="617" height="20" colspan="2"
<input type="file" name="client1" size="20" readonly LANGUAGE=javascript onblur="return client_onblur(1)"
<span style="font-size:9pt"</span <INPUT type="hidden" name="server1" <input type="hidden" value="mysession" name="mysession" </td
</tr
</table
</div
<p
<input type="submit" value="递交" name="B1" class="buttonface" <input type="reset" value="全部重写" name="B2" class="buttonface"
<input type="button" value="帐号修改" onclick="location.href='admin/news_chadmin.asp'" name="B2" style="font-size:10pt;color:#000000;" class="buttonface"
<input type="button" value="新闻修改" onclick="location.href='news_admin1.asp'" name="B2" style="font-size:10pt;color:#000000;" class="buttonface"</p

</form
</body
</html

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)

'###################
news_input.asp
<!--#include file="upload.inc"--
<%
'Fields("xxx").Name 取得Form中xxx(Form Object)的名字
'Fields("xxx").FilePath 如果是file Object 取得文件的完整路径
'Fields("xxx").FileName 如果是file Object 取得文件名
'Fields("xxx").ContentType 如果是file Object 取得文件的类型
'Fields("xxx").Length 取得Form中xxx(Form Object)的数据长度
'Fields("xxx").Value 取得Form中xxx(Form Object)的数据内容
Dim FormData,FormSize,gnote,bn

来源:https://www.tulaoshi.com/n/20160129/1511017.html

延伸阅读
标签: ASP
  紧接上节,我们的新闻系统已能完成日常的新闻在线添加,删除等的功能,但这 还是不足够的,有的用户可能需要查找一下过往某一专题内容的相关新闻条目,而一 个比教完善的新闻系统,当然少不免也的完成这个功能。    现在马上就为我们的新闻系统添加上(全文/标题)的检索功能吧,首先我们做 一个检索表单,见下面的...
标签: ASP
  通过定制这段代码,就能制作出符合您要求的网页显示格式。    添加,删除,显示都讲解完了,最后一项,就是把新闻的详细内容显示出来。    当用户点击新闻标题,就打开disp.asp文件,同时使用GET这种方式来把参数传 递过去,我们看看disp.asp的文件内容       《% @lan...
标签: ASP
  程序处理完毕后,重新导向delete.asp这个asp文件,用以刷新新闻数据库内的显 示,那么每提交一条新闻资料,我们马上可以看见执行的结果是否成功了。    以下是delete.asp的文件内容。    《% @language="vbscript" %》    《%    response.buffer=true &nb...
标签: ASP
  更新每天新闻内容,对webmaster们来说是一件很头痛的事,首先,收集了大量 的新闻资料后,还必须制作大量的网页,每天大大小小的国际新闻,国内新闻,IT 新闻,可真够你累的。最致命的一点,这些松散的新闻是管理不了的,不能查询,不 能在线动态删改,新闻讲求时效性,当你作好网页然后上传到服务器上的时侯,恐怕 别人已早你一步,...
标签: ASP
  (二)添加和管理每天的新闻内容    当进行了新闻提交后,则交由一个名为addnew.asp的asp程序来对新闻内容进行 处理,以便分类和保存,为了显示清析,我们每提交一条新闻,下面的那个新闻内容 库就重新读入,以便可以查看新闻是否能成功加入都数据库中,也可以放便地删除新 闻内容。     现在看...

经验教程

380

收藏

42
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部