📄 newsadd.aspx
字号:
<%@ Page Language="VB" Debug="true"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@ Register TagPrefix="mynews" TagName="end" src="ascx/end.ascx"%>
<html>
<head>
<title>insert news</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" href="style.css">
<script language="JavaScript">
var text_enter_url= "请输入连接网址";
var error_no_url= "您必须输入网址";
var text_enter_email= "请输入邮件地址";
var error_no_email= "您必须输入邮件网址";
function fontchuli()
{
document.news.content.focus();
var re = document.selection.createRange();
if (document.news.content.createTextRange){
re.text = fontbegin + re.text + fontend;}
else
{document.news.content.value= fontbegin+document.news.content.value+fontend;}
}
function cbold(){
fontbegin="[b]";
fontend="[/b]";
fontchuli();
}
function italic(){
fontbegin="[em]";
fontend="[/em]";
fontchuli();
}
function middle(){
fontbegin="[center]";
fontend="[/center]";
fontchuli();
}
function underline(){
fontbegin="[u]";
fontend="[/u]";
fontchuli();
}
function email(){
var emailAddress = prompt(text_enter_email,"");
if (!emailAddress) { alert(error_no_email); return; }
fontbegin="[mail]"+emailAddress+"[|mail]";
fontend="[/hyper]";
fontchuli();}
function chttp(){
var FoundErrors = '';
var enterURL = prompt(text_enter_url, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;}
fontbegin= "[url]"+enterURL+"[|url]";
fontend="[/hyper]";
fontchuli();
}
function img(){
var FoundErrors = '';
var enterURL = prompt(text_enter_url, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;}
fontbegin= "[img]"+enterURL;
fontend="[/img]";
fontchuli();
}
</script>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><mynews:main runat="server"/></td>
</tr>
<asp:panel ID="step1" runat="server">
<tr>
<td><form name="news" method="post" action="newsadd.aspx?action=add">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%">题目：</td>
<td width="79%"><input name="title" type="text" id="title" size="50" maxlength="50"></td>
</tr>
<tr>
<td>作者：</td>
<td><input type="text" name="author"></td>
</tr>
<tr>
<td>出处：</td>
<td><input type="text" name="from"></td>
</tr>
<tr>
<td>分类：</td>
<td><select name="bigclass">
<%sql="select * from BigClass"
Dim Reader as OleDbDataReader=getdatareader(sql)
while Reader.read()%>
<option value="<%=Reader.Item(0)%>"><%=Reader.Item(1)%></option>
<%end while
myConn.Close()%>
</select>
专题：
<select name="zhuanti" id="zhuanti">
<option value="0"></option>
<%sql="select * from Special order by SpecialID desc"
Reader=getdatareader(sql)
while Reader.read()%>
<option value="<%=Reader.Item(0)%>"><%=Reader.Item(1)%></option>
<%end while
myConn.Close()%>
</select> </td>
</tr>
<tr>
<td valign="top">内容：</td>
<td><p align="center">
<input type="button" name="Submit3" value="粗体" onClick="cbold()">
<input type="button" name="Submit4" value="斜体" onClick="italic()">
<input type="button" name="Submit5" value="下划线" onClick="underline()">
<input type="button" name="Submit6" value="居中" onClick="middle()">
<input type="button" name="Submit7" value="Email" onClick="email()">
<input type="button" name="Submit8" value="Http" onClick="chttp()">
<input type="button" name="Submit9" value="Img" onClick="img()">
</p>
<br><textarea name="content" cols="60" rows="10"></textarea></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><input type="submit" class="buttonface" name="Submit" value="添 加">
<input type="reset" class="buttonface" name="Submit2" value="取 消"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td><iframe name="upload" frameborder=0 width=97% height=50 scrolling=no src="inputfile.aspx"></iframe> </td>
</tr>
</asp:panel>
<tr>
<td><asp:label ID="message" runat="server"/></td>
</tr>
<tr>
<td><mynews:end runat="server"/></td>
</tr>
</table>
</body>
</html>
<script language="VB" runat="server">
Dim sql as String
Dim myconn as OleDbConnection
Dim myCmd as OleDbCommand
Function getdatareader(str as String) as OleDbDataReader
myCmd=New OleDbCommand(str,myConn)
myConn.open()
getdatareader=myCmd.ExecuteReader()
End Function
function executesql(sql as string)
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
myCmd.ExecuteNonQuery()
myConn.close()
end function
Sub Page_Load(sender As Object, e As EventArgs)
Dim strConn As String
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"
myConn = New OledbConnection(strConn)
if session("user")="administrator" then
step1.visible="true"
if page.request("action")="add" then
dim title,author,from,content as string
dim classid,specialid as integer
title=page.request("title")
author=page.request("author")
from=page.request("from")
content=page.request("content")
classid=page.request("bigclass")
specialid=page.request("zhuanti")
sql="insert into News(Title,Author,Original,Content,UpdateTime,BigClassID,SpecialID) values('"& title &"','" & author & "','" & from & "','" & content & "','" & datetime.now() & "','"& classid &"','"& specialid &"')"
executesql(sql)
message.text="<center>新闻添加成功</center>"
end if
else
response.redirect("login.aspx")
end if
end sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -