📄 mypic.aspx.vb
字号:
Response.Write ( "&userid=" ) '100
Response.Write ( userid ) '100
Response.Write ( "&photo_name=" ) '100
Response.Write ( photo_name ) '100
Response.Write ( "&id=" ) '100
Response.Write ( AspToAspX_CheckDBNull(smt.Fields ( "id" ) .Value) ) '100
Response.Write ( """><img src=""blogimages/bn_prev.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_prev_o.gif'"" onmouseout=""this.src='blogimages/bn_prev.gif'""></a> " & Chr ( 13 ) ) '100
Response.Write ( " " ) '101
Else '101
Response.Write ( vbCrLf )
Response.Write ( " <img src=""blogimages/bn_prev.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_prev_o.gif'"" onmouseout=""this.src='blogimages/bn_prev.gif'""> " & Chr ( 13 ) ) '102
Response.Write ( " " ) '103
End If '103
Response.Write ( vbCrLf )
Response.Write ( " " ) '104
If AspToAspX_CheckDBNull ( page1 ) < smt.pagecount Then '104
Response.Write ( vbCrLf )
Response.Write ( " <a href=""" ) '105
Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '105
Response.Write ( "?page1=" ) '105
Response.Write ( page1 + 1 ) '105
Response.Write ( "&userid=" ) '105
Response.Write ( userid ) '105
Response.Write ( "&photo_name=" ) '105
Response.Write ( photo_name ) '105
Response.Write ( "&id=" ) '105
Response.Write ( AspToAspX_CheckDBNull(smt.Fields ( "id" ) .Value) ) '105
Response.Write ( """><img src=""blogimages/bn_next.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_next_o.gif'"" onmouseout=""this.src='blogimages/bn_next.gif'""></a> " & Chr ( 13 ) ) '105
Response.Write ( " " ) '106
Else '106
Response.Write ( vbCrLf )
Response.Write ( " <img src=""blogimages/bn_next.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_next_o.gif'"" onmouseout=""this.src='blogimages/bn_next.gif'""> " & Chr ( 13 ) ) '107
Response.Write ( " " ) '108
End If '108
Response.Write ( vbCrLf )
Response.Write ( " </div>" & Chr ( 13 ) ) '109
Response.Write ( " </div>" & Chr ( 13 ) ) '110
Response.Write ( " </div>" & Chr ( 13 ) ) '111
Response.Write ( " <div align=""center"" class=""phinfo"">" ) '112
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(smt.Fields ( "pic_note" ) .Value) ) < > EmptyString.Value Then
Response.Write ( "描述：" & AspToAspX_CheckDBNull(smt.Fields ( "pic_note" ) .Value) )
End If
'112
Response.Write ( " 大小：" ) '112
Response.Write ( AspToAspX_CheckDBNull(smt.Fields ( "upload_size" ) .Value) ) '112
Response.Write ( " K 上传时间：" ) '112
Response.Write ( AspToAspX_CheckDBNull(smt.Fields ( "indate" ) .Value) ) '112
Response.Write ( "</div>" & Chr ( 13 ) ) '112
Response.Write ( " <div align=""center"" class=""phimg""><img src=""" ) '113
Response.Write ( photourl ) '113
Response.Write ( """ border=""0"" resize=""1""></div>" & Chr ( 13 ) ) '113
Response.Write ( " <div align=""center"" class=""phpage""> " & Chr ( 13 ) ) '114
Response.Write ( " " ) '115
If AspToAspX_CheckDBNull ( page1 ) > 1 Then '115
Response.Write ( vbCrLf )
Response.Write ( " <a href=""" ) '116
Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '116
Response.Write ( "?page1=" ) '116
Response.Write ( page1 - 1 ) '116
Response.Write ( "&userid=" ) '116
Response.Write ( userid ) '116
Response.Write ( "&photo_name=" ) '116
Response.Write ( photo_name ) '116
Response.Write ( "&id=" ) '116
Response.Write ( AspToAspX_CheckDBNull(smt.Fields ( "id" ) .Value) ) '116
Response.Write ( """><img src=""blogimages/bn_prev.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_prev_o.gif'"" onmouseout=""this.src='blogimages/bn_prev.gif'""></a> " & Chr ( 13 ) ) '116
Response.Write ( " " ) '117
Else '117
Response.Write ( vbCrLf )
Response.Write ( " <img src=""blogimages/bn_prev.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_prev_o.gif'"" onmouseout=""this.src='blogimages/bn_prev.gif'""> " & Chr ( 13 ) ) '118
Response.Write ( " " ) '119
End If '119
Response.Write ( vbCrLf )
Response.Write ( " " ) '120
If AspToAspX_CheckDBNull ( page1 ) < smt.pagecount Then '120
Response.Write ( vbCrLf )
Response.Write ( " <a href=""" ) '121
Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '121
Response.Write ( "?page1=" ) '121
Response.Write ( page1 + 1 ) '121
Response.Write ( "&userid=" ) '121
Response.Write ( userid ) '121
Response.Write ( "&photo_name=" ) '121
Response.Write ( photo_name ) '121
Response.Write ( "&id=" ) '121
Response.Write ( AspToAspX_CheckDBNull(smt.Fields ( "id" ) .Value) ) '121
Response.Write ( """><img src=""blogimages/bn_next.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_next_o.gif'"" onmouseout=""this.src='blogimages/bn_next.gif'""></a> " & Chr ( 13 ) ) '121
Response.Write ( " " ) '122
Else '122
Response.Write ( vbCrLf )
Response.Write ( " <img src=""blogimages/bn_next.gif"" border=""0"" align=""absmiddle"" onmouseover=""this.src='blogimages/bn_next_o.gif'"" onmouseout=""this.src='blogimages/bn_next.gif'""> " & Chr ( 13 ) ) '123
Response.Write ( " " ) '124
End If '124
Response.Write ( vbCrLf )
Response.Write ( " </div>" & Chr ( 13 ) ) '125
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " " ) '126
i = i + 1 '127
smt.MoveNext ( ) '128
If AspToAspX_CheckDBNull ( i ) > = ipagesize Then
Exit Do
End If
'129
Loop '130
smt.Close ( ) '131
smt = Nothing '132
Response.Write ( vbCrLf )
Response.Write ( " <div class=""line""> </div>" & Chr ( 13 ) ) '134
Response.Write ( "<div id=""in_comment""> <a name=""comment""></a> " & Chr ( 13 ) ) '135
sql = "select * from " & ft & "ftblog_pl where pltype=1 and plqs=0 " & searchstr & " order by id desc" '137
rs = New ADODB.Recordset ( ) '138
rs.Open ( sql , conn , 3 , 1 ) '139
If Not rs.EOF Then '140
wzrep = 20 '141
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '142
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'143
rs.PageSize = wzrep '144
rs.AbsolutePage = wzpage '145
wzpagecount = rs.PageCount '146
wzcount = rs.RecordCount '147
Response.Write ( "<div class=""tit"">网友评论：</div>" ) '148
For i = 0 To Val ( wzrep ) - 1 '149
If rs.EOF Then
Exit For
End If
'150
Response.Write ( vbCrLf )
Response.Write ( " <div class=""user""> <strong>" ) '152
Response.Write ( i + 1 ) '152
Response.Write ( "</strong> " ) '152
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "netname" ) .Value) ) '152
Response.Write ( " - " ) '152
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "pldate" ) .Value) ) '152
Response.Write ( " " & Chr ( 13 ) ) '152
Response.Write ( " </div>" & Chr ( 13 ) ) '153
Response.Write ( " <div class=""user"">" ) '154
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "plcontent" ) .Value) ) '154
Response.Write ( "</div>" & Chr ( 13 ) ) '154
Response.Write ( " <div class=""line""> </div>" & Chr ( 13 ) ) '155
Response.Write ( " " ) '156
rs.MoveNext ( ) '157
Next '158
rs.Close ( ) '159
rs = Nothing '160
Response.Write ( vbCrLf )
Response.Write ( "<div id=""page"">" ) '162
Response.Write ( pagenar ( wzpagecount , userid , tyname , photo_name ) ) '162
Response.Write ( "</div>" & Chr ( 13 ) ) '162
Else '164
Response.Write ( "<div class=""user""></div>" ) '165
End If '166
Response.Write ( vbCrLf )
Response.Write ( " <div id=""in_send""> " & Chr ( 13 ) ) '168
Response.Write ( " <div class=""tit"">发表评论：</div>" & Chr ( 13 ) ) '169
Response.Write ( " <table width=""620"" border=""0"" cellspacing=""5"" cellpadding=""0"">" & Chr ( 13 ) ) '170
Response.Write ( " <form name=""form1"" action="""" method=""post"" onsubmit=""return CheckF(this)"">" & Chr ( 13 ) ) '171
Response.Write ( " <input name=""id"" type=""hidden"" id=""id"" value=""" ) '172
Response.Write ( blogid ) '172
Response.Write ( """>" & Chr ( 13 ) ) '172
Response.Write ( " <input name=""userid"" type=""hidden"" id=""userid"" value=""" ) '173
Response.Write ( userid ) '173
Response.Write ( """>" & Chr ( 13 ) ) '173
Response.Write ( " <tr> " & Chr ( 13 ) ) '174
Response.Write ( " <td class=""f14"">姓 名：</td>" & Chr ( 13 ) ) '175
Response.Write ( " <td class=""f14"">" & Chr ( 13 ) ) '176
If AspToAspX_CheckDBNull ( ck_name ) < > EmptyString.Value Then '178
Response.Write ( ck_name ) '179
Else '180
Response.Write ( "你还没有登录!" ) '181
End If '182
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '184
Response.Write ( " </tr>" & Chr ( 13 ) ) '185
Response.Write ( " <tr> " & Chr ( 13 ) ) '186
Response.Write ( " <td height=300 class=""f14"">内 容：</td>" & Chr ( 13 ) ) '187
Response.Write ( " <td>" & Chr ( 13 ) ) '188
Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""remenu"" style=""position:absolute;left:0;visibility:hidden;""></textarea>" & Chr ( 13 ) ) '189
Response.Write ( "<script type=""text/javascript"" src=""fteditor/blogeditor.js""></script> " & Chr ( 13 ) ) '190
Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '191
Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '192
Response.Write ( "editor.hiddenName = ""remenu"";" & Chr ( 13 ) ) '193
Response.Write ( "editor.editorType = ""simple"";" & Chr ( 13 ) ) '194
Response.Write ( "editor.editorWidth = ""500px"";" & Chr ( 13 ) ) '195
Response.Write ( "editor.editorHeight = ""250px"";" & Chr ( 13 ) ) '196
Response.Write ( "editor.show();" & Chr ( 13 ) ) '197
Response.Write ( "</script>" & Chr ( 13 ) ) '198
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '199
Response.Write ( " </tr>" & Chr ( 13 ) ) '200
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " " ) '201
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '201
Response.Write ( vbCrLf )
Response.Write ( " <tr id=""vercode""> " & Chr ( 13 ) ) '202
Response.Write ( " <td valign=""top"" class=""f14"">验证码：</td>" & Chr ( 13 ) ) '203
Response.Write ( " <td valign=""top""><input name=codestr id=codestr type=text size=10 maxlength=4> " & Chr ( 13 ) ) '204
Response.Write ( " " ) '205
Response.Write ( getcode ) '205
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '206
Response.Write ( " </tr>" & Chr ( 13 ) ) '207
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " " ) '208
End If '208
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '209
Response.Write ( " <td valign=""top""class=""f14""> </td>" & Chr ( 13 ) ) '210
Response.Write ( " <td valign=""top"" class=""f14""><input name=""submit1"" type=""submit"" value=""发表评论"" class=""button""> " & Chr ( 13 ) ) '211
Response.Write ( " <input name=""act"" type=""hidden"" id=""act"" value=""y""></td>" & Chr ( 13 ) ) '212
Response.Write ( " </tr>" & Chr ( 13 ) ) '213
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " </form>" & Chr ( 13 ) ) '214
Response.Write ( " </table>" & Chr ( 13 ) ) '215
Response.Write ( " </div>" & Chr ( 13 ) ) '216
Response.Write ( " <br>" & Chr ( 13 ) ) '217
Response.Write ( " </div>" & Chr ( 13 ) ) '218
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '219
Response.Write ( " <tr> " & Chr ( 13 ) ) '220
Response.Write ( " <td class=""modbl"" width=""7""> </td>" & Chr ( 13 ) ) '221
Response.Write ( " <td class=""modbc""> </td>" & Chr ( 13 ) ) '222
Response.Write ( " <td class=""modbr"" width=""7""> </td>" & Chr ( 13 ) ) '223
Response.Write ( " </tr>" & Chr ( 13 ) ) '224
Response.Write ( " </table>" & Chr ( 13 ) ) '225
Response.Write ( "</div>" & Chr ( 13 ) ) '226
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '227
Response.Write ( "<tr><td class=""modbl"" width=""7""> </td>" & Chr ( 13 ) ) '228
Response.Write ( "<td class=""modbc""> </td>" & Chr ( 13 ) ) '229
Response.Write ( "<td class=""modbr"" width=""7""> </td>" & Chr ( 13 ) ) '230
Response.Write ( "</tr>" & Chr ( 13 ) ) '231
Response.Write ( "</table>" & Chr ( 13 ) ) '232
Response.Write ( " </div>" & Chr ( 13 ) ) '233
Response.Write ( " </div>" & Chr ( 13 ) ) '234
Response.Write ( " </div>" & Chr ( 13 ) ) '235
Response.Write ( " </div>" & Chr ( 13 ) ) '236
Response.Write ( "<br>" & Chr ( 13 ) ) '237
Response.Write ( "<center>" ) '238
ASPX_TAIL.AspToAspX_Page_Init ( )
Response.Write ( "</center>" & Chr ( 13 ) ) '238
Response.Write ( "</body>" & Chr ( 13 ) ) '239
Response.Write ( "</html>" & Chr ( 13 ) ) '240
closedb ( ) '241
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -