new_reply.aspx

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

<%@ Page Language="VB" ContentType="text/html" %>

<%@ 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
    viewState("gb_id")=request.QueryString("gb_id")
    
	filldatagrid_gb
    if request.Form("gb_poster")<>"" then insert_reply
    
	lblmessage.text=datetime.now.ticks-viewState("timStart")
end sub

sub filldatagrid_gb

	dim cmd as new oledbdataadapter("SELECT * FROM gb where gb_id=" & request.QueryString("gb_id"),conn)
    dim ds as dataset=new dataset()
	cmd.fill(ds, "reply")
	dgdata.datasource=ds.tables("reply").defaultview
	dgdata.databind()
	
end sub

sub insert_reply

'增加回复的计数器	
		dim objcmd as new oledbcommand("add_gb_reply",conn)
		objcmd.commandtype=commandtype.StoredProcedure
		
		dim objParam as oledbParameter
		objParam=objcmd.Parameters.add("@gb_id",oledbtype.integer)
		objParam.direction=parameterdirection.input
		objParam.value=request.QueryString("gb_id")

			try
			   conn.open()
			   objcmd.executenonquery
			catch ex as exception
			  response.write(ex.message)
			finally
			   conn.close()
			end try

			 
'插入数据到数据库 
      objcmd=new oledbcommand("insert_reply",conn)
      objcmd.commandtype=commandtype.StoredProcedure
		
	  'dim objParam as oledbParameter
	  objParam=objcmd.Parameters.add("@gb_id",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=viewState("gb_id")
	  
	  objParam=objcmd.Parameters.add("@rep_poster",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request.Form("gb_poster")
	   
	  objParam=objcmd.Parameters.add("@rep_postersex",oledbtype.integer)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_postersex")
	  
	  objParam=objcmd.Parameters.add("@rep_posterqq",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posterqq")
	  
	  objParam=objcmd.Parameters.add("@rep_posteremail",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posteremail")
	  
	  objParam=objcmd.Parameters.add("@rep_posterhome",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posterhome")	  
	  
	  objParam=objcmd.Parameters.add("@rep_posterfrom",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request("gb_posterfrom")	  
	  
	  objParam=objcmd.Parameters.add("@rep_posterip",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=request.ServerVariables("REMOTE_ADDR")
	  
	  objParam=objcmd.Parameters.add("@rep_content",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=replace((request.Form("gb_content")),vbcrlf,"<br>")
	try
	   conn.open()
       objcmd.executenonquery
	   info.text="<center>您好!" & request("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 = "[URL="+enterURL+"]"+enterTxT+"[/URL]";
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]"+enterURL+"[/IMG]";
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,"");
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;
}
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;