ini_new_page.inc

来自「该软件是采用微软的.net技术编写的bbs论坛」· INC 代码 · 共 61 行

<script language="VB" runat="server">
sub btnsponse_click(sender as object,e as eventargs)
if txttheme.text="" or txtcontent.text="" then
    lblmessage.text="主题和内容都不能为空!否则视为灌水！"
	lblmessage.forecolor=color.red
	exit sub
end if
dim strtxt as string					'过滤掉回车，将回车转换为<br>，存入数据库
'strtxt=replace(txtcontent.text,chr(13)+chr(10),"<br>")	
dim strconn as string
strconn="server=localhost;uid=sa;pwd=chicken;database=mybbs"
dim myconn as sqlconnection
myconn=new sqlconnection(strconn)
myconn.open()
dim num as integer
num=get_num()				'得到当前的帖子号
dim strsql as string
strsql="insert into main (num,sponsor,theme,content,sponsetime) values('"
strsql+=cstr(num)+"'"
strsql+=",'"
strsql+=session("id")+"'"
strsql+=",'"
strsql+=txttheme.text+"'"
strsql+=",'"
strsql+=txtcontent.text+"'"
strsql+=",'"
strsql+=now+"'"
strsql+=")"
dim mycomm as sqlcommand
mycomm=new sqlcommand(strsql,myconn)
try
mycomm.executenonquery()
lblmessage.forecolor=color.green
txttheme.text=""
txtcontent.text=""
catch ex as sqlexception
lblmessage.text=strsql
lblmessage.forecolor=color.red
end try
myconn.close()
response.redirect("theme.aspx")
end sub
function get_num() as integer 
dim strconn as string
strconn="data source=localhost;uid=sa;pwd=chicken;database=mybbs"
dim myconn as sqlconnection
myconn=new sqlconnection(strconn)
myconn.open()
dim strsql as string
strsql="select top 1 num from main order by num desc"
dim mycomm as sqlcommand
mycomm=new sqlcommand(strsql,myconn)
dim mydr as sqldatareader
mydr=mycomm.executereader()
if mydr.read then
    get_num=cint(mydr.item("num"))+1
end if
myconn.close()	
end function	
</script>