📄 endpost.aspx.vb
字号:
' ***************************************************
' * 本程序由AspToAspX风火轮0.99转换生成 *
' * http://Www.AspToAspX.Cn *
' * Q Q : 139227536 *
' * QQ群: 17152722 *
' * MSN : gzliangjianhua@hotmail.com *
' * EMail AspToDll@vip.163.com *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState
Public Class _ENDPOST
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public i
Public id
Public reid
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public postname
Public dateh
Public xsjf
Public htmfilename
Public endtime
Public user_id
Public sql
Public root
Public pagestr
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
Public ASPX_BBSUSER As _BBSUSER
Public ASPX_PAGEFUN As _PAGEFUN
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
ASPX_BBSUSER = New _BBSUSER()
ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
ASPX_PAGEFUN = New _PAGEFUN()
ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_PAGEFUN.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
ASPX_BBSUSER = Nothing
ASPX_PAGEFUN.AspToAspX_UnloadIncludeFiles()
ASPX_PAGEFUN = Nothing
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
AspToAspXGlobal.Application = Application
AspToAspXGlobal.Server = Server
AspToAspXGlobal.Response = Response
AspToAspXGlobal.Request = Request
AspToAspXGlobal.Session = Session
AspToAspX_Host_Class_Object = Me
AspToAspX_InitIncludeFiles()
AspToAspX_Page_Init()
End Sub
Public Sub AspToAspX_Page_Init()
On Error GoTo _AspToAspX_Err
ASPX_CONN.AspToAspX_Page_Init ( )
ASPX_BBSUSER.AspToAspX_Page_Init ( )
ASPX_PAGEFUN.AspToAspX_Page_Init ( )
Response.Write ( "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & Chr ( 13 ) ) '4
Response.Write ( "<html>" & Chr ( 13 ) ) '5
Response.Write ( "<head>" & Chr ( 13 ) ) '6
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '7
Response.Write ( "<title>悬赏结贴</title>" & Chr ( 13 ) ) '8
Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '9
Response.Write ( "<!--" & Chr ( 13 ) ) '10
Response.Write ( ".list { border-bottom: 1px solid #E8E8E8;line-height: 28px; height: 28px; padding: 0 10px;font-size: 12px; }" & Chr ( 13 ) ) '11
Response.Write ( "-->" & Chr ( 13 ) ) '12
Response.Write ( "</style>" & Chr ( 13 ) ) '13
Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '14
Response.Write ( "<script>" & Chr ( 13 ) ) '15
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '16
Response.Write ( "var style;" & Chr ( 13 ) ) '17
Response.Write ( "var strstyle;" & Chr ( 13 ) ) '18
Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '19
Response.Write ( "{" & Chr ( 13 ) ) '20
Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '21
Response.Write ( "}" & Chr ( 13 ) ) '22
Response.Write ( "else" & Chr ( 13 ) ) '23
Response.Write ( "{" & Chr ( 13 ) ) '24
Response.Write ( " stylecook++;" & Chr ( 13 ) ) '25
Response.Write ( "}" & Chr ( 13 ) ) '26
Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '27
Response.Write ( "strstyle=""<link href=\""css/""+style+""\"" rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '28
Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '29
Response.Write ( "</script>" & Chr ( 13 ) ) '30
Response.Write ( "</head>" & Chr ( 13 ) ) '31
id = AspToAspX_CInt ( Request ( "id" ) ) '33
reid = AspToAspX_CInt ( Request ( "reid" ) ) '34
AspToAspX_Str = "select name,dateh,xsjf,xsdaynum,htmfilename from " & ft & "bbstitle where id=" & id '35
rs = New ADODB.Recordset ( ) '36
rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '37
postname = AspToAspX_CheckDBNull(rs.Fields ( "name" ) .Value) '38
dateh = AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) '39
xsjf = AspToAspX_CheckDBNull(rs.Fields ( "xsjf" ) .Value) '40
htmfilename = AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) '41
endtime = DateAdd ( "d" , AspToAspX_CheckDBNull(rs.Fields ( "xsdaynum" ) .Value) , AspToAspX_CheckDBNull(rs.Fields ( "dateh" ) .Value) ) '42
rs.Close ( ) '43
If AspToAspX_CheckDBNull ( Request ( "reid" ) ) < > EmptyString.Value And AspToAspX_CheckDBNull ( postname ) = getcookie ( "name" ) Then '44
AspToAspX_Str = "select user_id from " & ft & "bbsmenu where id=" & reid '45
rs = New ADODB.Recordset ( ) '46
rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '47
user_id = AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) '48
rs.Close ( ) '49
sql = "update " & ft & "bbstitle set xsreid=" & reid & " where id=" & id '50
conn.Execute ( sql ) '51
sql = "update " & ft & "clubuser set jingyuan=jingyuan+" & xsjf & " where clubuser_name='" & user_id & "'" '52
conn.Execute ( sql ) '53
sql = "update " & ft & "clubuser set jingyuan=jingyuan-" & xsjf & " where clubuser_name='" & getcookie ( "name" ) & "'" '54
conn.Execute ( sql ) '55
AspToAspX_Response_Redirect ( htmfilename ) '56
End If '57
Response.Write ( vbCrLf )
Response.Write ( "<body topmargin=""0"">" & Chr ( 13 ) ) '59
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '60
Response.Write ( " <form name=""form1"" method=""post"" action="""" id=""formid"" target=""_top"">" & Chr ( 13 ) ) '61
Response.Write ( " <tr> " & Chr ( 13 ) ) '62
Response.Write ( " <td width=""13%"" height=""25"" class=""list""><strong>用户</strong></td>" & Chr ( 13 ) ) '63
Response.Write ( " <td width=""72%"" class=""list""><strong>回复内容</strong></td>" & Chr ( 13 ) ) '64
Response.Write ( " <td width=""15%"" class=""list""><strong>最佳答案</strong></td>" & Chr ( 13 ) ) '65
Response.Write ( " </tr>" & Chr ( 13 ) ) '66
root = "" '68
pagestr = "&id=" & id '69
wzrep = 10 '70
If AspToAspX_CheckDBNull ( linkdb ) = 1 Then '72
sql = "select id,user_id,remenu from " & ft & "bbsmenu where pid = " & id & " and dateh<#" & endtime & "# order by id asc" '73
Else '74
sql = "select id,user_id,remenu from " & ft & "bbsmenu where pid = " & id & " and dateh<'" & endtime & "' order by id asc" '75
End If '76
rs = New ADODB.Recordset ( ) '77
rs.Open ( sql , conn , 1 , 1 ) '78
If Not rs.EOF Then '79
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '80
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'81
rs.PageSize = wzrep '82
rs.AbsolutePage = wzpage '83
wzpagecount = rs.PageCount '84
wzcount = rs.RecordCount '85
For i = 0 To Val ( wzrep ) - 1 '86
If rs.EOF Then
Exit For
End If
'87
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '89
Response.Write ( " <td width=""13%"" height=""25"" class=""list""> " & Chr ( 13 ) ) '90
Response.Write ( " " ) '91
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '91
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '92
Response.Write ( " <td width=""72%"" class=""list"">" ) '93
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "remenu" ) .Value) ) '93
Response.Write ( "</td>" & Chr ( 13 ) ) '93
Response.Write ( " <td width=""15%"" class=""list""><input type=""radio"" name=""reid"" value=""" ) '94
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '94
Response.Write ( """>" & Chr ( 13 ) ) '94
Response.Write ( " <input name=""id"" type=""hidden"" id=""id"" value=""" ) '95
Response.Write ( id ) '95
Response.Write ( """>" & Chr ( 13 ) ) '95
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '96
Response.Write ( " </tr>" & Chr ( 13 ) ) '97
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -