📄 newsadd.aspx
字号:
<!--
本页作用是添加新的数据表新闻表(news),如果在新闻中指定了附件，还要将客户端
的附件复制到服务器端的相应目录中
-->
<!--
通过本例得到的经验：
１、如何在asp.net中上传附件。
-->
<%@ Page Language="VB" ContentType="text/html" debug="true" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<!--#include file="ckqx.aspx" -->
<html>
<head>
<title>添加新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#CCCCCC">
<asp:panel ID="zhead" runat="server">
<table width="549" height="400" cellpadding="0">
<tr>
<td height="263" valign="top">
<form enctype="multipart/form-data" runat="server">
<table width="549" height="22" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
<tr>
<td><strong> <font color="#FFFFFF">添加新闻</font></strong></td>
</tr>
</table>
<table width="549" height="364" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
<tr>
<td height="362" valign="top" bgcolor="#FFFFFF">
<table width="545" height="305" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="baseline">
<td width="48" ><div align="center">标题：</div></td>
<td> <asp:textbox BorderStyle="solid" BorderWidth="1" Font-Size="10" ID="ztitle" runat="server" TextMode="SingleLine" /> </td>
</tr>
<tr valign="baseline">
<td height="226" align="right" nowrap> <div align="center"><font color="#000000">内容：</font></div></td>
<td><asp:textbox BorderStyle="solid" BorderWidth="1" Columns="60" Font-Size="10" ID="zcontent" Rows="15" runat="server" TextMode="MultiLine" />
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><div align="center"><font color="#000000">附件：</font></div></td>
<td> <input type="file" style="border-width:1px;border-style:Solid;font-size:10pt;" id="myfile" runat="server" size="30">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><div align="center"></div></td>
<td><asp:button Font-Size="10" ID="zok" runat="server" Text="发布" onclick="zaddnews" /></td>
</tr>
</table></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</asp:panel>
<asp:panel ID="zend" runat="server" Visible="false">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<center><img src="../pic/Image13.gif" width="32" height="32" align="absmiddle"> 成功 </center>
</asp:panel>
</body>
</html>
<script language="VB" runat="server">
sub page_load(s as object,e as eventargs)
if not (checkqx("c")) then response.redirect("error.aspx")
end sub
sub zaddnews(s as object,e as eventargs)
dim oinfo()=session("lguinfo")
dim lsfile as object
lsfile=myfile.postedfile
dim lsname() as string=split(lsfile.filename,".")
dim lsnm as string=lsname(lsname.length-1)
dim lstime=now()
dim lsyear,lsmonth,lsday,lshour,lsminute,lssecond,lsfilename as string
lsyear=year(lstime)
lsmonth=right("0" & month(lstime),2)
lsday=right("0" & day(lstime),2)
lshour=right("0" & hour(lstime),2)
lsminute=right("0" & minute(lstime),2)
lssecond=right("0" & second(lstime),2)
dim lsrd as string
randomize
lsrd=cstr(int(100*rnd())+1)
lsfilename=lsyear & lsmonth & lsday & lshour & lsminute & lssecond & "-" & lsrd & "." & lsnm
'得到以当前日期及时间为前缀的新文件名，只保留原文档的护展名(防止文件出现重名现象、防止中文文件名)
dim lspath as string
lspath=session("shareuppath") & lsfilename
lsfile.saveas(lspath)
'保存客户端文件到服务器特定的目录，但文件名不变
dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
conn.open()
dim objcmd as new oledbcommand()
objcmd.connection=conn
objcmd.commandtext="insert into news (otitle,ocontent,sendmen,ofilename) " & _
" values(?,?,?,?)"
objcmd.parameters.add("@otitle",oledbtype.char).value=ztitle.text
objcmd.parameters.add("@ocontent",oledbtype.char).value=zcontent.text
objcmd.parameters.add("@sendmen",oledbtype.char).value=oinfo(3)
'发布者所在部门
objcmd.parameters.add("@ofilename",oledbtype.char).value=lsfilename
objcmd.executenonquery()
conn.close()
zhead.visible=false
zend.visible=true
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -