📄 viewpost.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
if session("useriD")="" then
btnlogin.text="login"
end if
If Not isPostBack Then
ViewState("Start") = 0
BindData
if session("useriD")="" then
btnlogin.text="login"
end if
End If
End Sub
Sub Next_Click(Sender As Object, E As EventArgs)
Dim dlistcount As Integer = msglist.Items.Count
intStart = ViewState("Start") + ViewState("pageSize")
ViewState("Start") = intStart
If dlistcount < ViewState("pageSize") Then
ViewState("Start") = ViewState("Start") - ViewState("pageSize")
End If
'Call Bindlist sub and display data
call Binddata
End Sub
'Set the paging previous link
Sub Prev_Click(Sender As Object, E As EventArgs)
intStart = ViewState("Start") - ViewState("pageSize")
ViewState("Start") = intStart
If intStart <= 0 Then
ViewState("Start") = 0
End If
'Call Bindlist sub and display data
call Binddata
End Sub
'Jump back to the first page
Sub FirstPage(Sender As Object, E As EventArgs)
If intStart <= 0 Then
ViewState("Start") = 0
End If
'Call Bindlist - show data
call Binddata
End Sub
Sub BindData
call dbcon
bcon.Open()
bcmd = New sqlCommand("select posts,userid,priviladge,joineddate,imageurl,PostID,subject,POsted,message from users,post where users.userid=post.postedby and threadID='" & request.querystring("threadID") & "' order by post.postID ",bcon )
Dim postadapter as New sqlDataAdapter(BCmd)
Dim dts as New DataSet()
intStart = ViewState("Start")
ViewState("pageSize") = 10
postadapter.Fill(dts, intStart, ViewState("pageSize"), "POstID")
msglist.DataSource = dts
msglist.DataBind()
'msglist.DataSource =bcmd.ExecuteReader()
'msglist.DataBind()
bcon.Close()
End Sub
Sub PostClick( obj As Object, e As EventArgs )
if session("userID")="" then
response.redirect("login.aspx")
else
if (txtsubject.text="" and txtmsg.text="") or (txtsubject.text="" OR txtmsg.text="") then
lblfeedback.text="please fill in the both fields"
else
call dbcon
Dim InsertString as string
Dim Message As String
InsertString = "Insert Into post (Subject, postedby, posted,IP,Message,threadID) values(@subject,'" & session("userID") & "','" & cstr(now) & "','" & request.servervariables("REMOTE_ADDR") & "',@messege,'" & cint(request.querystring("threadid")) & "')"
Mcmd=new sqlcommand(insertstring,bcon)
mcmd.Parameters.Add(New SqlParameter("@subject", SqlDbType.VarChar, 100))
mcmd.Parameters.Add(New SqlParameter("@messege", SqlDbType.NText))
mcmd.Parameters("@subject").Value=HtmlClean(txtsubject.text)
mcmd.Parameters("@messege").Value=smiley(Replace(UBBCparse(HtmlClean(txtmsg.text)), CStr(chr(13)), "<br>"))
bcon.Open()
Mcmd.ExecuteNonQuery
bcon.Close()
call updatepostcount
call BindData
end if
end if
txtsubject.Text = ""
txtmsg.Text = ""
End Sub
</Script>
<html>
<head><title>.::GSMLANKA Discussion Board::.</title>
<style type="text/css">
<!--
.style4 {font-size: 12px}
-->
</style>
</head>
<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}
.style5 {
font-size: 12;
font-weight: bold;
}
-->
</style>
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -