📄 blog_edit.aspx.vb
字号:
Response.Write ( " <td width=""86%""> " & Chr ( 13 ) ) '123
Response.Write ( " <input name=""blogtitle"" type=""text"" id=""blogtitle"" value=""" ) '124
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtitle" ) .Value) ) '124
Response.Write ( """ size=""40"">" & Chr ( 13 ) ) '124
Response.Write ( " 是否公开发表？ " & Chr ( 13 ) ) '125
Response.Write ( " <select name=""blogqs"" id=""blogqs"">" & Chr ( 13 ) ) '126
Response.Write ( " <option value=""0"" " ) '127
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogqs" ) .Value) ) = 0 Then '127
Response.Write ( "selected" ) '127
End If '127
Response.Write ( ">是</option>" & Chr ( 13 ) ) '127
Response.Write ( " <option value=""1"" " ) '128
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogqs" ) .Value) ) = 1 Then '128
Response.Write ( "selected" ) '128
End If '128
Response.Write ( ">否</option>" & Chr ( 13 ) ) '128
Response.Write ( " </select></td>" & Chr ( 13 ) ) '129
Response.Write ( " </tr>" & Chr ( 13 ) ) '130
Response.Write ( " <tr> " & Chr ( 13 ) ) '131
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '132
Response.Write ( " <div align=""center"">分类：</div></td>" & Chr ( 13 ) ) '133
Response.Write ( " <td> " & Chr ( 13 ) ) '134
Response.Write ( " <select name=""blogtypeid"" id=""blogtypeid"">" & Chr ( 13 ) ) '135
Response.Write ( " " ) '136
sql = "select * from " & ft & "ftblog_type where blogphoto=0 order by id desc" '137
rs = New ADODB.Recordset ( ) '138
rs.Open ( sql , conn , 1 , 3 ) '139
Do While Not rs.EOF '140
Response.Write ( vbCrLf )
Response.Write ( " <option value=""" ) '142
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '142
Response.Write ( """ " ) '142
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) = AspToAspX_CheckDBNull(rsblog.Fields ( "blogtypeid" ) .Value) Then '142
Response.Write ( "selected" ) '142
End If '142
Response.Write ( ">" ) '142
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '142
Response.Write ( "</option>" & Chr ( 13 ) ) '142
Response.Write ( " " ) '143
rs.MoveNext ( ) '144
Loop '145
rs.Close ( ) '146
Response.Write ( vbCrLf )
Response.Write ( " </select>" & Chr ( 13 ) ) '148
Response.Write ( " 心情： " & Chr ( 13 ) ) '149
Response.Write ( " <select name=""select"" id=""postheart"" Onchange=""setHeart();"">" & Chr ( 13 ) ) '150
Response.Write ( " <option value="""" " ) '151
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = EmptyString.Value Then '151
Response.Write ( "selected" ) '151
End If '151
Response.Write ( ">无</option>" & Chr ( 13 ) ) '151
Response.Write ( " <option value=""一般"" " ) '152
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "一般" Then '152
Response.Write ( "selected" ) '152
End If '152
Response.Write ( ">一般</option>" & Chr ( 13 ) ) '152
Response.Write ( " <option value=""开心"" " ) '153
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "开心" Then '153
Response.Write ( "selected" ) '153
End If '153
Response.Write ( ">开心</option>" & Chr ( 13 ) ) '153
Response.Write ( " <option value=""伤心"" " ) '154
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "伤心" Then '154
Response.Write ( "selected" ) '154
End If '154
Response.Write ( ">伤心</option>" & Chr ( 13 ) ) '154
Response.Write ( " <option value=""郁闷"" " ) '155
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "郁闷" Then '155
Response.Write ( "selected" ) '155
End If '155
Response.Write ( ">郁闷</option>" & Chr ( 13 ) ) '155
Response.Write ( " <option value=""茫然"" " ) '156
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "茫然" Then '156
Response.Write ( "selected" ) '156
End If '156
Response.Write ( ">茫然</option>" & Chr ( 13 ) ) '156
Response.Write ( " <option value=""说不清"" " ) '157
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "xinqin" ) .Value) ) = "说不清" Then '157
Response.Write ( "selected" ) '157
End If '157
Response.Write ( ">说不清</option>" & Chr ( 13 ) ) '157
Response.Write ( " <option value=""selfHeart"">自填心情</option>" & Chr ( 13 ) ) '158
Response.Write ( " </select> <input name=""DiaryHeart"" id=""myheart"" style=""display:none;"" size=""14"" maxlength=""10""> " & Chr ( 13 ) ) '159
Response.Write ( " <script language=""JavaScript"">" & Chr ( 13 ) ) '160
Response.Write ( "function setHeart()" & Chr ( 13 ) ) '161
Response.Write ( "{" & Chr ( 13 ) ) '162
Response.Write ( "if(document.getElementById(""postheart"").value == ""selfHeart"")" & Chr ( 13 ) ) '163
Response.Write ( "{" & Chr ( 13 ) ) '164
Response.Write ( "document.getElementById(""myheart"").style.display = """";" & Chr ( 13 ) ) '165
Response.Write ( "document.getElementById(""myheart"").style.color = ""#c0c0c0"";" & Chr ( 13 ) ) '166
Response.Write ( "document.getElementById(""myheart"").value = ""请输入自填心情"";" & Chr ( 13 ) ) '167
Response.Write ( "}" & Chr ( 13 ) ) '168
Response.Write ( "else" & Chr ( 13 ) ) '169
Response.Write ( "{" & Chr ( 13 ) ) '170
Response.Write ( "document.getElementById(""myheart"").style.display = ""none"";" & Chr ( 13 ) ) '171
Response.Write ( "document.getElementById(""myheart"").value = document.getElementById(""postheart"").value;" & Chr ( 13 ) ) '172
Response.Write ( "}" & Chr ( 13 ) ) '173
Response.Write ( "}" & Chr ( 13 ) ) '174
Response.Write ( "function isNum(theNum)" & Chr ( 13 ) ) '175
Response.Write ( "{" & Chr ( 13 ) ) '176
Response.Write ( "if (theNum =="""")" & Chr ( 13 ) ) '177
Response.Write ( "return false;" & Chr ( 13 ) ) '178
Response.Write ( "for(var i=0;i<theNum.length;i++){" & Chr ( 13 ) ) '179
Response.Write ( "oneNum=theNum.substring(i,i+1);" & Chr ( 13 ) ) '180
Response.Write ( "if (oneNum<""0"" || oneNum>""9"")" & Chr ( 13 ) ) '181
Response.Write ( "return false;" & Chr ( 13 ) ) '182
Response.Write ( "}" & Chr ( 13 ) ) '183
Response.Write ( "return true;" & Chr ( 13 ) ) '184
Response.Write ( "}" & Chr ( 13 ) ) '185
Response.Write ( "</script> </td>" & Chr ( 13 ) ) '186
Response.Write ( " </tr>" & Chr ( 13 ) ) '187
Response.Write ( " <tr> " & Chr ( 13 ) ) '188
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '189
Response.Write ( " <div align=""center"">时间：</div></td>" & Chr ( 13 ) ) '190
Response.Write ( " <td> " & Chr ( 13 ) ) '191
Response.Write ( " <input name=""writedate"" type=""text"" id=""writedate"" value=""" ) '192
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "writedate" ) .Value) ) '192
Response.Write ( """ size=""26""></td>" & Chr ( 13 ) ) '192
Response.Write ( " </tr>" & Chr ( 13 ) ) '193
Response.Write ( " <tr> " & Chr ( 13 ) ) '194
Response.Write ( " <td height=300></td>" & Chr ( 13 ) ) '195
Response.Write ( " <td>" & Chr ( 13 ) ) '196
Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""remenu"" style=""position:absolute;left:0;visibility:hidden;"">" ) '197
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogcontent" ) .Value) ) '197
Response.Write ( "</textarea>" & Chr ( 13 ) ) '197
Response.Write ( "<script type=""text/javascript"" src=""fteditor/blogeditor.js""></script> " & Chr ( 13 ) ) '198
Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '199
Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '200
Response.Write ( "editor.hiddenName = ""remenu"";" & Chr ( 13 ) ) '201
Response.Write ( "//editor.editorType = ""simple"";" & Chr ( 13 ) ) '202
Response.Write ( "editor.editorWidth = ""100%"";" & Chr ( 13 ) ) '203
Response.Write ( "editor.editorHeight = ""250px"";" & Chr ( 13 ) ) '204
Response.Write ( "editor.show();" & Chr ( 13 ) ) '205
Response.Write ( "</script>" & Chr ( 13 ) ) '206
Response.Write ( " </td>" & Chr ( 13 ) ) '207
Response.Write ( " </tr>" & Chr ( 13 ) ) '208
Response.Write ( " <tr> " & Chr ( 13 ) ) '209
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '210
Response.Write ( " <div align=""center"">标签：</div></td>" & Chr ( 13 ) ) '211
Response.Write ( " <td> " & Chr ( 13 ) ) '212
Response.Write ( " <input name=""blogtag"" type=""text"" id=""blogtag"" value=""" ) '213
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "blogtag" ) .Value) ) '213
Response.Write ( """ size=""28"">" & Chr ( 13 ) ) '213
Response.Write ( " 多个标签用"|"线分开.</td>" & Chr ( 13 ) ) '214
Response.Write ( " </tr>" & Chr ( 13 ) ) '215
Response.Write ( " <tr> " & Chr ( 13 ) ) '216
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '217
Response.Write ( " <div align=""center"">评论：</div></td>" & Chr ( 13 ) ) '218
Response.Write ( " <td> " & Chr ( 13 ) ) '219
Response.Write ( " <input name=""plqs"" type=""radio"" value=""0"" " ) '220
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "plqs" ) .Value) ) = 0 Then '220
Response.Write ( "checked" ) '220
End If '220
Response.Write ( ">" & Chr ( 13 ) ) '220
Response.Write ( " 允许 " & Chr ( 13 ) ) '221
Response.Write ( " <input type=""radio"" name=""plqs"" value=""1"" " ) '222
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rsblog.Fields ( "plqs" ) .Value) ) = 1 Then '222
Response.Write ( "checked" ) '222
End If '222
Response.Write ( ">" & Chr ( 13 ) ) '222
Response.Write ( " 禁止</td>" & Chr ( 13 ) ) '223
Response.Write ( " </tr>" & Chr ( 13 ) ) '224
Response.Write ( " " ) '225
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '225
Response.Write ( vbCrLf )
Response.Write ( " <TR class=""maintbtr1""> " & Chr ( 13 ) ) '226
Response.Write ( " <TD width=""16%"" height=""28""> " & Chr ( 13 ) ) '227
Response.Write ( " <div align=""center""> 验证码：</div></TD>" & Chr ( 13 ) ) '228
Response.Write ( " <TD width=""84%""> " & Chr ( 13 ) ) '229
Response.Write ( " <input name=codestr id=codestr type=text size=10 maxlength=4> " & Chr ( 13 ) ) '230
Response.Write ( " " ) '231
Response.Write ( getcode ) '231
Response.Write ( vbCrLf )
Response.Write ( " </TD>" & Chr ( 13 ) ) '232
Response.Write ( " </TR>" & Chr ( 13 ) ) '233
Response.Write ( " " ) '234
End If '234
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '235
Response.Write ( " <td height=""35""> " & Chr ( 13 ) ) '236
Response.Write ( " <div align=""right""></div></td>" & Chr ( 13 ) ) '237
Response.Write ( " <td> " & Chr ( 13 ) ) '238
Response.Write ( " <input type=""submit"" name=""submit1"" value=""提交"" class=""button""> " & Chr ( 13 ) ) '239
Response.Write ( " <input name=""act"" type=""hidden"" id=""act"" value=""y""> <INPUT type=""hidden"" name=""id"" value=""" ) '240
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "id" ) .Value) ) '240
Response.Write ( """> " & Chr ( 13 ) ) '240
Response.Write ( " <input name=""bloghtmfile"" type=""hidden"" id=""bloghtmfile"" value=""" ) '241
Response.Write ( AspToAspX_CheckDBNull(rsblog.Fields ( "bloghtmfile" ) .Value) ) '241
Response.Write ( """> " & Chr ( 13 ) ) '241
Response.Write ( " </td>" & Chr ( 13 ) ) '242
Response.Write ( " </tr>" & Chr ( 13 ) ) '243
Response.Write ( " </form>" & Chr ( 13 ) ) '244
Response.Write ( " </table>" & Chr ( 13 ) ) '245
Response.Write ( " <br>" & Chr ( 13 ) ) '246
Response.Write ( " </div>" & Chr ( 13 ) ) '247
Response.Write ( "</td>" & Chr ( 13 ) ) '248
Response.Write ( "</tr></table>" & Chr ( 13 ) ) '249
Response.Write ( "</div>" & Chr ( 13 ) ) '250
Response.Write ( "</div>" & Chr ( 13 ) ) '251
Response.Write ( "<br><center>" & Chr ( 13 ) ) '252
Response.Write ( " " ) '253
ASPX_TAIL.AspToAspX_Page_Init ( )
Response.Write ( " </center>" & Chr ( 13 ) ) '254
Response.Write ( "</center>" & Chr ( 13 ) ) '255
Response.Write ( "</body>" & Chr ( 13 ) ) '256
Response.Write ( "</html>" & Chr ( 13 ) ) '257
closedb ( ) '258
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("blog_edit_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)
ASPX_CONN.iii = value
End Set
End Property
Public Property nothis
Get
nothis = ASPX_CONN.nothis
End Get
Set(ByVal value)
ASPX_CONN.nothis = value
End Set
End Property
Public Sub makeftbbstree(ByRef ft )
ASPX_CONN.makeftbbstree( ft )
End Sub
Public Sub CloseDb
ASPX_CONN.CloseDb
End Sub
Public Sub SaveToFile( ByVal strBody,ByVal File )
ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
End Sub
Public Function Checkstr(ByRef AspToAspX_Str )
Return ASPX_CONN.Checkstr( AspToAspX_Str )
End Function
Public Function CheckCharStr(ByRef usernamepsw,ByRef flag )
Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -