📄 mysms.aspx.vb
字号:
wzcount = rs.RecordCount '126
For i = 0 To Val ( wzrep ) - 1 '127
If rs.EOF Then
Exit For
End If
'128
userinfo = "" '129
bbssystem = AspToAspX_CheckDBNull(rs.Fields ( "bbssystem" ) .Value) '130
If AspToAspX_CheckDBNull ( bbssystem ) = 0 Then '131
sender = "<div align=""center"">第" & i + 1 & "条</div>" '132
If AspToAspX_CheckDBNull ( Request ( "t" ) ) = "my" Then '133
AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & username & "'" '134
Else '135
AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & AspToAspX_CheckDBNull(rs.Fields ( "sender" ) .Value) & "'" '136
End If '137
rsa = New ADODB.Recordset ( ) '138
rsa.Open ( AspToAspX_Str , conn , 3 , 1 ) '139
If Not rsa.EOF Then '140
jingyuan = AspToAspX_CheckDBNull(rsa.Fields ( "jingyuan" ) .Value) '141
tili = AspToAspX_CheckDBNull(rsa.Fields ( "tili" ) .Value) '142
img = AspToAspX_CheckDBNull(rsa.Fields ( "userimg" ) .Value) '143
If IsDBNull ( AspToAspX_CheckDBNull(rsa.Fields ( "jingyuan" ) .Value) ) Then
jingyuan = 0
End If
'144
If IsDBNull ( AspToAspX_CheckDBNull(rsa.Fields ( "tili" ) .Value) ) Then
tili = 100
End If
'145
If IsDBNull ( AspToAspX_CheckDBNull(rsa.Fields ( "userimg" ) .Value) ) Then
img = "cache5.gif"
End If
'146
clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rsa.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '147
touxian = touxianvalue ( jingyuan , ft ) '148
jibie = jibievalue ( jingyuan , ft ) '149
userinfo = "<TABLE border=0 cellPadding=0 cellSpacing=0 width=""100%"">" '150
userinfo = userinfo + "<TBODY><TR>" '151
userinfo = userinfo + "<TD><div align=""center""><IMG height=84 src=userheadimg/cache5.gif width=84></div></TD>" '152
userinfo = userinfo + "</TR><TR>" '153
userinfo = userinfo + "<TD height=20 class=""f12"">·网名：" & AspToAspX_CheckDBNull(rsa.Fields ( "clubuser_nickname" ) .Value) & "</TD>" '154
userinfo = userinfo + "</TR><TR>" '155
userinfo = userinfo + "<TD height=20 class=""f12"">·头衔：" & touxian & "</TD>" '156
userinfo = userinfo + "</TR><TR>" '157
userinfo = userinfo + "<TD height=20 class=""f12"">·级别：" & replace ( jibie , "../" , "" ) & "</TD>" '158
userinfo = userinfo + "</TR><TR>" '159
userinfo = userinfo + "<TD height=20 class=""f12"">·体力：" & tili & "</TD>" '160
userinfo = userinfo + "</TR><TR>" '161
userinfo = userinfo + "<TD height=20 class=""f12"">·积分：" & jingyuan & "</TD>" '162
userinfo = userinfo + "</TR><TR>" '163
userinfo = userinfo + "<TD height=20 class=""f12"">·注册：" & clubuser_reg_date & "</TD>" '164
userinfo = userinfo + "</TR></TBODY>" '165
userinfo = userinfo + "</TABLE>" '166
End If '167
rsa.Close ( ) '168
Else '169
userinfo = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" '170
userinfo = userinfo + "<tr>" '171
userinfo = userinfo + "<td><div align=""center""> <IMG height=84 src=userheadimg/cache5.gif width=84></div></td>" '172
userinfo = userinfo + "</tr><tr>" '173
userinfo = userinfo + "<td height=20 class=""f12""><div align=""center"">系统管理员</div></td>" '174
userinfo = userinfo + "</tr><tr><td height=""12""> </td></tr>" '175
userinfo = userinfo + "</table>" '176
sender = "<div align=""center"">系统信息</div>" '177
End If '178
Response.Write ( vbCrLf )
Response.Write ( " <TABLE align=""center"" border=0 cellPadding=0 cellSpacing=0 width=""100%"">" & Chr ( 13 ) ) '180
Response.Write ( " <TBODY>" & Chr ( 13 ) ) '181
Response.Write ( " <TR> " & Chr ( 13 ) ) '182
Response.Write ( " <TD width=""20%"" height=""25"" vAlign=middle class=""maintbtr1""> " & Chr ( 13 ) ) '183
Response.Write ( " " ) '184
Response.Write ( sender ) '184
Response.Write ( vbCrLf )
Response.Write ( " </TD>" & Chr ( 13 ) ) '185
Response.Write ( " <TD class=""maintbtr1""><B> 标 题：" ) '186
Response.Write ( UBBCode ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) ) '186
Response.Write ( "</B> </TD>" & Chr ( 13 ) ) '186
Response.Write ( " </TR>" & Chr ( 13 ) ) '187
Response.Write ( " </TBODY>" & Chr ( 13 ) ) '188
Response.Write ( " </TABLE>" & Chr ( 13 ) ) '189
Response.Write ( " <TABLE width=""100%"" border=0 align=""center"" cellPadding=0 cellSpacing=0 bgColor=""#FFFFFF"">" & Chr ( 13 ) ) '190
Response.Write ( " <TBODY>" & Chr ( 13 ) ) '191
Response.Write ( " <TR>" & Chr ( 13 ) ) '192
Response.Write ( " <TD class=""maintbtr3"" rowSpan=2 vAlign=top width=""20%""><DIV align=center>" & Chr ( 13 ) ) '193
Response.Write ( " " ) '194
Response.Write ( userinfo ) '194
Response.Write ( vbCrLf )
Response.Write ( " </DIV></TD>" & Chr ( 13 ) ) '195
Response.Write ( " </TR>" & Chr ( 13 ) ) '196
Response.Write ( " <TR>" & Chr ( 13 ) ) '197
Response.Write ( " <TD class=""td004"" vAlign=top><TABLE border=0 cellPadding=3 cellSpacing=3 width=""100%"">" & Chr ( 13 ) ) '198
Response.Write ( " <TBODY>" & Chr ( 13 ) ) '199
Response.Write ( " <TR>" & Chr ( 13 ) ) '200
Response.Write ( " <TD height=""158"" vAlign=top class=f14>内 容：" ) '201
Response.Write ( UBBCode ( AspToAspX_CheckDBNull(rs.Fields ( "content" ) .Value) ) ) '201
Response.Write ( "</TD>" & Chr ( 13 ) ) '201
Response.Write ( " </TR>" & Chr ( 13 ) ) '202
Response.Write ( " </TBODY>" & Chr ( 13 ) ) '203
Response.Write ( " </TABLE>" & Chr ( 13 ) ) '204
Response.Write ( " <TABLE border=0 cellPadding=0 cellSpacing=5 width=""100%"">" & Chr ( 13 ) ) '205
Response.Write ( " <TBODY>" & Chr ( 13 ) ) '206
Response.Write ( " <TR>" & Chr ( 13 ) ) '207
Response.Write ( " <TD background=""images/bg_text1.gif"" height=""1""></TD>" & Chr ( 13 ) ) '208
Response.Write ( " </TR>" & Chr ( 13 ) ) '209
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " " ) '210
If AspToAspX_CheckDBNull ( bbssystem ) = 0 Then '210
Response.Write ( vbCrLf )
Response.Write ( " <TR>" & Chr ( 13 ) ) '211
Response.Write ( " <TD align=left class=f14><table width=""100%"" border=0 cellspacing=0 cellpadding=0>" & Chr ( 13 ) ) '212
Response.Write ( " <tr>" & Chr ( 13 ) ) '213
Response.Write ( " <td width=""52%"" class=f14> <font color=""#000000"">操作选项：<input type=""checkbox"" name=""checkbox1"" value=""" ) '214
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '214
Response.Write ( """>[<a class=a03 href=delsms.aspx?id=" ) '214
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '214
Response.Write ( ">删除</a>][<a class=a03 href=editsms.aspx?id=" ) '214
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '214
Response.Write ( ">编辑</a>]" ) '214
If AspToAspX_CheckDBNull ( Request ( "t" ) ) < > "my" Then '214
Response.Write ( "[" ) '214
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "replysign" ) .Value) ) = 0 Then '214
Response.Write ( "<a class=a03 href=replysms.aspx?id=" ) '214
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '214
Response.Write ( ">回复</a>" ) '214
Else '214
Response.Write ( "<font color=""#FF0000"">已回复</font>" ) '214
End If '214
Response.Write ( "]" ) '214
End If '214
Response.Write ( "</font></td>" & Chr ( 13 ) ) '214
Response.Write ( " <td width=""48%"" class=f14><div align=""right"">发信时间: " ) '215
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "indate" ) .Value) ) '215
Response.Write ( " </div></td>" & Chr ( 13 ) ) '215
Response.Write ( " </tr>" & Chr ( 13 ) ) '216
Response.Write ( " </table></TD>" & Chr ( 13 ) ) '217
Response.Write ( " </TR>" & Chr ( 13 ) ) '218
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " " ) '219
ElseIf AspToAspX_CheckDBNull ( bbssystem ) = 2 Then '219
Response.Write ( vbCrLf )
Response.Write ( " <tr>" & Chr ( 13 ) ) '220
Response.Write ( " <td width=""52%"" class=f14><font color=""#000000""> " & Chr ( 13 ) ) '221
Response.Write ( " " ) '222
If AspToAspX_CheckDBNull ( getcookie ( "bbsadmin" ) ) = 1 Or AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "accepter" ) .Value) ) = username Then '222
Response.Write ( vbCrLf )
Response.Write ( " 操作选项：<input type=""checkbox"" name=""checkbox1"" value=""" ) '223
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '223
Response.Write ( """>[<a class=a03 href=delsms.aspx?id=" ) '223
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '223
Response.Write ( ">删除</a>][<a class=a03 href=editsms.aspx?id=" ) '223
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '223
Response.Write ( ">编辑</a>]" & Chr ( 13 ) ) '223
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '224
End If '224
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '225
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sender" ) .Value) ) < > EmptyString.Value Then '225
Response.Write ( "[<a class=a03 href=""agree.aspx?id=" ) '225
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '225
Response.Write ( "&postuser=" ) '225
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "sender" ) .Value) ) '225
Response.Write ( "&accepter=" ) '225
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "accepter" ) .Value) ) '225
Response.Write ( "&agree=Y"">同意</a>][<a class=a03 href=""agree.aspx?id=" ) '225
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '225
Response.Write ( "&postuser=" ) '225
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "sender" ) .Value) ) '225
Response.Write ( "&accepter=" ) '225
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "accepter" ) .Value) ) '225
Response.Write ( "&agree=N"">不同意</a>]" ) '225
End If '225
Response.Write ( "</font></td>" & Chr ( 13 ) ) '225
Response.Write ( " <td width=""48%"" class=f14><div align=""right"">发信时间:" ) '226
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "indate" ) .Value) ) '226
Response.Write ( " </div></td>" & Chr ( 13 ) ) '226
Response.Write ( " </tr>" & Chr ( 13 ) ) '227
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " " ) '228
End If '228
Response.Write ( vbCrLf )
Response.Write ( " </TBODY>" & Chr ( 13 ) ) '229
Response.Write ( " </TABLE></TD>" & Chr ( 13 ) ) '230
Response.Write ( " </TR>" & Chr ( 13 ) ) '231
Response.Write ( " </TBODY>" & Chr ( 13 ) ) '232
Response.Write ( " </TABLE>" & Chr ( 13 ) ) '233
rs.MoveNext ( ) '235
Next '236
rs.Close ( ) '237
rs = Nothing '238
conn.Close ( ) '239
End If '240
Response.Write ( vbCrLf )
Response.Write ( "</form>" & Chr ( 13 ) ) '242
Response.Write ( " <TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=""100%"">" & Chr ( 13 ) ) '243
Response.Write ( " <TR class=""maintbtr1""> " & Chr ( 13 ) ) '244
Response.Write ( " <TD width=""57%"" height=25 class=""f12""> 共<font color=red>" ) '245
Response.Write ( wzcount ) '245
Response.Write ( "</font>条<font color=red>" ) '245
Response.Write ( wzrep ) '245
Response.Write ( "</font>/页 共<font color=red>" ) '245
Response.Write ( wzpagecount ) '245
Response.Write ( "</font>页 " & Chr ( 13 ) ) '245
Response.Write ( " <input name=""button"" type=""button"" onclick=""selectAll()"" value=""全选""> " & Chr ( 13 ) ) '246
Response.Write ( " <input name=""button"" type=""button"" onclick=""selectRev()"" value=""反选"">" & Chr ( 13 ) ) '247
Response.Write ( " <input name=""button"" type=""button"" onclick=""select_pl_submit('选择删除')"" value=""将所选删除""></TD>" & Chr ( 13 ) ) '248
Response.Write ( " <TD width=""43%"" class=""f12"" align=""right"">" ) '249
Response.Write ( FtbbsPage ( wzpagecount , "t" , Request ( "t" ) , "smtype" , Request ( "smtype" ) ) ) '249
Response.Write ( "</TD>" & Chr ( 13 ) ) '249
Response.Write ( " </TR>" & Chr ( 13 ) ) '250
Response.Write ( " </TABLE></td>" & Chr ( 13 ) ) '251
Response.Write ( " </tr>" & Chr ( 13 ) ) '252
Response.Write ( "</table>" & Chr ( 13 ) ) '253
Response.Write ( " " ) '254
ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
Response.Write ( "</div>" & Chr ( 13 ) ) '255
Response.Write ( "</body>" & Chr ( 13 ) ) '256
Response.Write ( "</html>" & Chr ( 13 ) ) '257
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("mysms_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
conn = ASPX_CONN.conn
End Get
Set(ByVal value)
ASPX_CONN.conn = value
End Set
End Property
Public Property qs
Get
qs = ASPX_CONN.qs
End Get
Set(ByVal value)
ASPX_CONN.qs = value
End Set
End Property
Public Property errc
Get
errc = ASPX_CONN.errc
End Get
Set(ByVal value)
ASPX_CONN.errc = value
End Set
End Property
Public Property iii
Get
iii = ASPX_CONN.iii
End Get
Set(ByVal value)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -