用文本+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} 
  } 
} 

//--> 
</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=>   <input type="button" value="新闻修改" onclick="location.href=>  
</form>    
</body>           
 </html>           

'###################
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,bnote,notes,binlen,binstr 
FormSize=Request.TotalBytes 
FormData=Request.BinaryRead(FormSize) 
Set Fields = GetUpload(FormData) 

'############判断输入错误
dim news_title,news_content,news_src,mysession

mysession=Fields("mysession").value
if len(mysession)=0 then
Response.Write "非法登陆或超时请重新登陆"
Response.End 
end if

news_title=Fields("news_title").value
news_title=replace(news_title,"|","|")
news_content=Fields("news_content").value
news_src=Fields("news_src").value
news_src=replace(news_src,"|","|")
if len(news_title)=0 then%>
     <script>
     alert("出错！新闻标题不能为空");
    &
上一个：asp实现k线图(在线)
下一个：用文本+ASP打造新闻发布系统(三)新闻列表显示
更多图片编程知识: