admin_article_add.aspx

这是一套整站系统的源代码程序

<%@ Page Language="VB" ContentType="text/html" validateRequest=false %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Register TagPrefix="admin" TagName="menu" Src="../lib/adminmenu.ascx" %>
<%@ Register TagPrefix="admin" TagName="foot" Src="../lib/adminfoot.ascx" %>
<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.mappath("../data/article.mdb"))
sub page_load(obj as object, e as eventargs)
if not page.ispostback then fill_a_cat()
if page.ispostback then
  if art_poster.value<>"" and art_from.value<>"" and art_title.value<>"" and art_content.value<>"" and art_keyword.value<>"" then 
insert_art()
  else
    response.Write("Enter all vlaue!")
end if
end if

end sub
sub fill_a_cat()
dim objcmd as new oledbcommand("select * from a_cat",conn)
dim objreader as oledbdatareader

	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	   cat_id.datasource=objreader
	   cat_id.databind()
	
	   objreader.close
	   objcmd.connection.close()
	catch ex as exception
	   response.Write(ex.message)
	end try
end sub

  
sub insert_art()
	  dim objcmd as new oledbcommand("insert_art",conn)
      objcmd.commandtype=commandtype.StoredProcedure
		
	  dim objParam as oledbParameter
	  
	  objParam=objcmd.Parameters.add("@cat_id",oledbtype.integer)
	  objParam.direction=parameterdirection.input
	  objParam.value=cat_id.SelectedItem.value

	  objParam=objcmd.Parameters.add("@art_title",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=art_title.value
	  
	  objParam=objcmd.Parameters.add("@art_poster",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=art_poster.value
	  
	  objParam=objcmd.Parameters.add("@art_from",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=art_from.value
	  
	  objParam=objcmd.Parameters.add("@art_content",oledbtype.bstr)
	  objParam.direction=parameterdirection.input
	  objParam.value=replace((request("art_content")),vbcrlf,"<br>")
	  
'如果要取得格式化后的字符串时，就用服务器控件技术，否则就用表单
	    
	  objParam=objcmd.Parameters.add("@art_keyword",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=art_keyword.value


try
conn.open()
objcmd.executenonquery
conn.close()
response.Write("<center>Title:[" & art_title.value & "]insert is ok!</center>")
catch ex as exception
response.Write(ex.message)
end try
end sub

</script>
<script language="JavaScript">
<!--
function insertstr(str)

{document.addart.art_content.value=document.addart.art_content.value+str;}
var Quote = 0;
var Bold  = 0;
var Italic = 0;
var Underline = 0;
var Code = 0;
var Center = 0;
var Strike = 0;
var Sound = 0;
var Swf = 0;
var Ra = 0;
var Rm = 0;
var Marquee = 0;
var Fly = 0;
var fanzi=0;
var text_enter_url      = "请输入连接网址";
var text_enter_iFrame      = "请输入连接网址";
var text_enter_txt      = "请输入连接说明";
var text_enter_image    = "请输入图片网址";
var text_enter_sound    = "请输入声音文件网址";
var text_enter_swf      = "请输入FLASH动画网址";
var text_enter_ra      = "请输入Real音乐网址";
var text_enter_rm      = "请输入Real影片网址";
var text_enter_wmv      = "请输入Media影片网址";
var text_enter_wma      = "请输入Media音乐网址";
var text_enter_mov      = "请输入QuickTime音乐网址";
var text_enter_sw      = "请输入shockwave音乐网址";
var text_enter_email    = "请输入邮件网址";
var error_no_url        = "您必须输入网址";
var error_no_txt        = "您必须连接说明";
var error_no_title      = "您必须输入首页标题";
var error_no_email      = "您必须输入邮件网址";
var error_no_gset       = "必须正确按照各式输入！";
var error_no_gtxt       = "必须输入文字！";
var text_enter_guang1   = "文字的长度、颜色和边界大小";
var text_enter_guang2   = "要产生效果的文字！";
function commentWrite(NewCode) {
document.addart.art_content.value+=NewCode;
document.addart.art_content.focus();
return;
}
function storeCaret(text) { 
	if (text.createTextRange) {
		text.caretPos = document.selection.createRange().duplicate();
	}
        if(event.ctrlKey && window.event.keyCode==13){i++;if (i>1) {alert('帖子正在发出，请耐心等待！');return false;}this.document.form.submit();}
}
function AddText(text) {
	if (document.addart.art_content.createTextRange && document.addart.art_content.caretPos) {      
		var caretPos = document.addart.art_content.caretPos;      
		caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?
		text + ' ' : text;
	}
	else document.addart.art_content.value += text;
	document.addart.art_content.focus(caretPos);
}
function inputs(str)
{
AddText(str);
}
function Curl() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_url, "http://");
var enterTxT   = prompt(text_enter_txt, enterURL);
if (!enterURL)    {
FoundErrors += "\n" + error_no_url;
}
if (!enterTxT)    {
FoundErrors += "\n" + error_no_txt;
}
if (FoundErrors)  {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "<A href="+enterURL+">"+enterTxT+"</a>";
document.addart.art_content.value+=ToAdd;
document.addart.art_content.focus();
}
function Cimage() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_image, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "<IMG>"+enterURL+"</IMG>";
document.addart.art_content.value+=ToAdd;
document.addart.art_content.focus();
}
function CiFrame() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_iFrame, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "<frame>"+enterURL+"</frame>";
document.addart.art_content.value+=ToAdd;
document.addart.art_content.focus();
}
function Cemail() {
var emailAddress = prompt(text_enter_email,"");
if (!emailAddress) { alert(error_no_email); return; }
var ToAdd = "[EMAIL]"+emailAddress+"[/EMAIL]";
commentWrite(ToAdd);
}
function Ccode() {
if (Code == 0) {
ToAdd = "[CODE]";
document.form.code.value = " 代码*";
Code = 1;
} else {
ToAdd = "[/CODE]";
document.form.code.value = " 代码 ";
Code = 0;
}
commentWrite(ToAdd);
}
function Cquote() {
fontbegin="[QUOTE]";
fontend="[/QUOTE]";
fontchuli();
}
function Cbold() {
fontbegin="<b>";
fontend="</b>";
fontchuli();
}
function Citalic() {
fontbegin="<i>";
fontend="</i>";
fontchuli();
}
function Cunder() {
fontbegin="<u>";
fontend="</u>";
fontchuli();
}
function Ccenter() {
fontbegin="<center>";
fontend="</center>";
fontchuli();
}
function Cstrike() {
fontbegin="[strike]";
fontend="[/strike]";
fontchuli();
}
function Csound() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_sound, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;