📄 newthread.aspx
字号:
<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %>
<!--#include file="config.aspx" -->
<!--#include file="updatepost.aspx" -->
<!--#include file="checklogin.aspx" -->
<!--#include file="UBBC.aspx" -->
<Script Runat="Server">
Sub Page_Load( s As Object, e As EventArgs )
call checkstatus
call logincheck
End Sub
sub logincheck
if session("userid")="" then
session("checklog")= true
response.redirect("login.aspx")
end if
end sub
Sub PostClick( obj As Object, e As EventArgs )
call dbcon
Dim InsertThread, InsertMessage As String
Dim GetThread, Message as string
Dim ThreadID As Long
Dim ThreadResult As Integer
bcon.open()
if subjecttext.text="" or threadtext.text="" or messagetext.text="" then
else
InsertThread = "Insert Into Thread (TName,startedby,boardid) " & _
"VALUES (@ThreadName,'" & session("userid") & "',@BoardID)"
TCmd = New sqlCommand(InsertThread, BCOn)
TCmd.Parameters.Add( _
New sqlParameter("@ThreadName", sqlDbType.Varchar,100))
tcmd.Parameters.Add( _
New sqlParameter("@Boardid", sqlDbType.int))
tcmd.Parameters("@ThreadName").Value = _
ThreadText.Text
tcmd.Parameters("@BoardID").Value = _
Request.QueryString("BoardID")
ThreadResult = tcmd.ExecuteNonQuery
GetThread = "Select ThreadID from Thread Where TName='" & _
ThreadText.Text & "'"
mcmd = New sqlCommand( GetThread,Bcon)
objreader = mCMd.ExecuteReader()
objreader.Read
ThreadID = objreader.Item("ThreadID")
objreader.Close
InsertMessage = "Insert Into Post (Subject, " & _
"POstedby, posted, IP, Message,ThreadID) VALUES (@Subject, " & _
"'" & session("userid") & "', '" & cstr(now) & "','" & request.servervariables("REMOTE_ADDR") & "', @Message, @ThreadID)"
Mcmd = _
New sqlCommand(InsertMessage, BCon)
mcmd.Parameters.Add( _
New sqlParameter("@Subject", sqlDbType.Varchar,100))
Mcmd.Parameters.Add( _
New sqlParameter("@Message", sqlDbType.ntext))
Mcmd.Parameters.Add( _
New sqlParameter("@ThreadID", sqlDBType.int))
Message = MessageText.Text
Message = smiley(Replace(UBBCparse(HtmlClean(Message)), CStr(chr(13)), "<br>"))
MCmd.Parameters("@Subject").Value = HtmlClean(SubjectText.Text)
MCmd.Parameters("@Message").Value = Message
MCmd.Parameters("@ThreadID").Value = ThreadID
MCmd.ExecuteNonQuery
bcon.Close()
call updatepostcount
Response.Redirect("Threads.aspx?BoardID=" & _
Request.QueryString("BoarDId") & _
"&B_name=" & Request.QueryString("B_name"))
end if
End Sub
</Script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>.::GSM LANKA Discussion Board::.</title>
<link href="stylesheet.css" rel="stylesheet" type="text/css" />
<SCRIPT language=JavaScript
src="javascript.js"></SCRIPT>
<style type="text/css">
<!--
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #cccccc;
}
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #CCCCCC;
}
-->
</style>
<link href="stylesheet.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style3 {font-weight: bold}
-->
</style>
</head>
<body><form runat="server">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="800" height="32" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="307" height="4"></td>
<td width="493"></td>
</tr>
<tr>
<td height="28" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="imagenew/up_serch_ban.jpg">
<!--DWLayoutTable-->
<tr>
<td width="153" height="28"> </td>
<td width="150" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="157" height="28"><font color="#336699">
<asp:TextBox ID="txtSearch" Columns="6" width="104px" runat="server" TextMode="SingleLine" />
<asp:Button ID="btnSearch" Text="Go" Width="32" runat="server" />
</font></td>
</tr>
</table></td>
<td width="4"> </td>
</tr>
</table></td>
<td><table width="100%" height="28" border="0" align="center" cellpadding="0" cellspacing="0" background="imagenew/up_ban.jpg" bgcolor="#FFCC00">
<!--DWLayoutTable-->
<tr>
<td width="52" height="28"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="index.aspx"><span class="style1">Home</span></a></td>
<td width="55"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="signup.aspx"><span class="style1">Register</span></a></td>
<td width="58"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="forum.aspx"><span class="style1">Forums</span></a></td>
<td width="72"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="orderstatus.aspx"><span class="style1">Track Order </span></a></td>
<td width="66"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a
href="multimedia.aspx" class="toplink style1">Multimedia</a></td>
<td width="42"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="faq.aspx"><span class="style1">Faq</span></a></td>
<td width="50"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="about.aspx"><span class="style1">About</span></a></td>
<td width="80"
align="center" valign="middle" nowrap="nowrap" class="navtopdark1"
onclick="jump(this)" onMouseOver="colorOnTop(this)" onMouseOut="colorOffTop(this)"><a class="toplink"
href="contact.aspx"><span class="style1">Contact Us </span></a></td>
<td width="18"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" class="border4">
<!--DWLayoutTable-->
<tr>
<td width="7" height="7"></td>
<td width="783"></td>
<td width="7"></td>
</tr>
<tr>
<td height="134"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="783" height="134" valign="top"><img src="imagenew/main_ban.jpg" alt="Banner" width="783" height="134" /></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="7"></td>
<td></td>
<td></td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" class="border4">
<!--DWLayoutTable-->
<tr>
<td width="7" height="18"></td>
<td width="783" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="783" height="18"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f3f3f3">
<!--DWLayoutTable-->
<tr>
<td width="203" height="24" valign="middle">You are logged in as
<asp:Label ID="lblusertext" runat="server" Text='Guest' Font-Bold="true" /></td>
<td width="203"> </td>
<td width="377" align="right" valign="middle"><span class="style3">
<asp:LinkButton ID="btnViewprof" Text="View Profile" runat="server" CausesValidation="false"/>
<asp:LinkButton runat="server" id="showcart" CausesValidation="false" OnClick="viewthecart" />
<asp:linkButton ID="btnlogin" onclick="sign" CausesValidation="false" runat="server" />
</span></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="7"></td>
</tr>
<tr>
<td height="9"></td>
<td></td>
<td></td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" class="border4">
<!--DWLayoutTable-->
<tr>
<td width="8" height="283"> </td>
<td width="780" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="298" height="25"> </td>
<td width="337"> </td>
<td width="145"> </td>
</tr>
<tr>
<td height="222" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td height="19" colspan="4" valign="middle"><span class="leftlink">Type your New thread details here and click submit. for UBBC<strong> help </strong>Click here . </span></td>
<td width="12"> </td>
</tr>
<tr>
<td width="380" height="8"></td>
<td width="68"></td>
<td width="7"></td>
<td width="156"></td>
<td></td>
</tr>
<tr>
<td height="35" colspan="2" valign="top"><font color="#336699"> New Thread <br />
<asp:TextBox ID="threadtext" Columns="40" MaxLength="150" TextMode="SingleLine" runat="server" />
</font> <br />
<asp:requiredfieldvalidator id="checktxtname" controltovalidate="threadtext" runat="server" errormessage="enter a thread name" text="Please enter a thread name"/></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="35" colspan="2" valign="top"><font color="#336699"> <span class="leftlink">Subjact</span><br />
<asp:TextBox ID="subjecttext" Columns="40" MaxLength="150" TextMode="SingleLine" runat="server" />
<br />
</font> <asp:requiredfieldvalidator id="checktxtsubject" controltovalidate="subjecttext" runat="server" errormessage="enter a subject name" text="Please enter a subject name"/><br /></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="63" colspan="2" valign="top"><label></label>
<span class="leftlink">Massege</span><br />
<asp:TextBox ID="messagetext" Rows="15" Columns="60" TextMode="MultiLine" runat="server" />
<br />
<asp:requiredfieldvalidator id="checktxtmsg" controltovalidate="messagetext" runat="server" errormessage="Post cannot be empty" text="messege cannot be empty"/></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="24"> </td>
<td colspan="2" valign="top"><asp:Button ID="btnPost" Text="Post Thread" onclick="PostClick" runat="server" />
<font color="#336699"> </font></td>
<td> </td>
<td></td>
</tr>
<tr>
<td height="15"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="59" valign="top" class="redfont"><strong><font face="arial"><a href="threads.aspx?BoardID=
<%=Request.QueryString("BoardID")%>
&B_Name=<%=Request.QueryString("B_Name")%>">Return to <b><%=Request.QueryString("B_Name") %> </b> Threads</a><br>
<a href="Forum.aspx"> Return to list of <b>Boards</b></a></font></strong></td>
<td> </td>
<td> </td>
</tr>
</table></td>
<td width="9"> </td>
</tr>
<tr>
<td height="59"> </td>
<td> </td>
<td> </td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" background="imagenew/dlink_ban-new-copy.jpg">
<!--DWLayoutTable-->
<tr>
<td width="192" height="28"> </td>
<td width="394" align="center" valign="middle"><span class="style1">Copyright © GSM Lanka (Pvt) Ltd, </span></td>
<td width="213"> </td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p></form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -