new_gb.aspx

商务网站全部程序.很有借鉴意义

<%@ Page Language="VB" ContentType="text/html" validateRequest="false" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>

<script language="VB" runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data\gb.mdb"))
sub page_load(obj as object,e as eventargs)
	viewState("timStart")=datetime.now.ticks
    if not ispostback then
	   if request.Form("gb_poster")<>"" then
	      insert_gb
	   end if
   end if
lblmessage.text=datetime.now.ticks-viewState("timStart")
end sub

sub insert_gb
	  dim objcmd as new oledbcommand("insert_gb",conn)
      objcmd.commandtype=commandtype.StoredProcedure
		
	  dim objParam as oledbParameter
	  
	  objParam=objcmd.Parameters.add("@gb_poster",oledbtype.bstr)
	  objParam.direction=parameterdirection.input
	  objParam.value=request.Form("gb_poster")
	   
	  objParam=objcmd.Parameters.add("@gb_postersex",oledbtype.integer)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_postersex")
	  
	  objParam=objcmd.Parameters.add("@gb_posterqq",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posterqq")
	  
	  objParam=objcmd.Parameters.add("@gb_posteremail",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posteremail")
	  
	  objParam=objcmd.Parameters.add("@gb_posterhome",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posterhome")	  
	  
  
	  objParam=objcmd.Parameters.add("@gb_posterfrom",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posterfrom")	  
	  
	  objParam=objcmd.Parameters.add("@gb_posterip",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request.ServerVariables("REMOTE_ADDR")
	  
	  objParam=objcmd.Parameters.add("@gb_content",oledbtype.bstr)
	  objParam.direction=parameterdirection.input
	  objParam.value=replace((request.Form("gb_content")),vbcrlf,"<br>")
	  
	try
	   conn.open()
       objcmd.executenonquery
	   info.text="<center>您好!" & request.Form("gb_poster") & ",您的留言已成功提交!</center>"
	catch ex as exception
	   info.text="Error info:" & ex.message
	finally
	  conn.close()
	end try   
end sub


</script>
<script language="JavaScript">
<!--
function insertstr(str)
{document.addgb.gb_content.value=document.addgb.gb_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.addgb.gb_content.value+=NewCode;
document.addgb.gb_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.addgb.gb_content.createTextRange && document.addgb.gb_content.caretPos) {      
		var caretPos = document.addgb.gb_content.caretPos;      
		caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ?
		text + ' ' : text;
	}
	else document.addgb.gb_content.value += text;
	document.addgb.gb_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.addgb.gb_content.value+=ToAdd;
document.addgb.gb_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 src="+enterURL+" >";
document.addgb.gb_content.value+=ToAdd;
document.addgb.gb_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.addgb.gb_content.value+=ToAdd;
document.addgb.gb_content.focus();
}
function Cemail() {
var emailAddress = prompt(text_enter_email,"mailto:");
if (!emailAddress) { alert(error_no_email); return; }
var ToAdd = "<a href="+emailAddress+"</a>";
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;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[SOUND]"+enterURL+"[/SOUND]";
document.addgb.gb_content.value+=ToAdd;
document.addgb.gb_content.focus();
}

function Cswf() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_swf, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[FLASH]"+enterURL+"[/FLASH]";
document.addgb.gb_content.value+=ToAdd;
document.addgb.gb_content.focus();
}
function Cra() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_ra, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);
return;
}
var ToAdd = "[RA]"+enterURL+"[/RA]";
document.addgb.gb_content.value+=ToAdd;
document.addgb.gb_content.focus();
}
function Crm() {
var FoundErrors = '';
var enterURL   = prompt(text_enter_rm, "http://");
if (!enterURL) {
FoundErrors += "\n" + error_no_url;
}
if (FoundErrors) {
alert("错误！"+FoundErrors);