user_spacephoto_code.asp

个人网站比较简短

    Response.Write "</table>"
    Response.Write "  <p align='center'>"
    Response.Write "   <input name='Action' type='hidden' id='Action' value='SaveAdd'>"
    Response.Write "   <input name='ID' type='hidden' id='ID' value='" & BlogID & "'>"
    Response.Write "   <input name='add' type='submit'  id='Add' value=' 确 认 ' onClick=""document.myform.Action.value='SaveAdd';document.myform.target='_self';"" style='cursor:hand;'>&nbsp;"
    Response.Write "   <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='User_SpacePhoto.asp?ID=" & BlogID & "';"" style='cursor:hand;'>"
    Response.Write "  </p><br>"
    Response.Write "</form>"
    If iType = 2 Then
        Response.Write "<script language = 'JavaScript'>" & vbCrLf
        Response.Write "document.myform.add.disabled = true;" & vbCrLf
        Response.Write "function myFlash_DoFSCommand(command, args) {" & vbCrLf
        Response.Write "　  document.myform.url.value = args;" & vbCrLf
        Response.Write "    document.myform.add.disabled = false;" & vbCrLf
        Response.Write "}" & vbCrLf
        Response.Write "document.write('<SCRIPT LANGUAGE=VBScript\> \n');" & vbCrLf
        Response.Write "document.write('on error resume next \n');" & vbCrLf
        Response.Write "document.write('Sub myFlash_FSCommand(ByVal command, ByVal args)\n');" & vbCrLf
        Response.Write "document.write(' call myFlash_DoFSCommand(command, args)\n');" & vbCrLf
        Response.Write "document.write('end sub\n');" & vbCrLf
        Response.Write "document.write('</SCRIPT\> \n');" & vbCrLf
        Response.Write "</script>" & vbCrLf
    End If
End Sub

Sub Modify()
    Dim rsItem, sql, ItemID
    ItemID = PE_CLng(Trim(Request("ItemID")))
    If ItemID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要修改的图片</li>"
        Exit Sub
    End If

    sql = "select * from PE_SpacePhoto where ID=" & ItemID & " and UserID=" & UserID
    Set rsItem = Server.CreateObject("ADODB.Recordset")
    rsItem.Open sql, Conn, 1, 1
    If rsItem.BOF And rsItem.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到图片</li>"
        rsItem.Close
        Set rsItem = Nothing
        Exit Sub
    End If

    Call ShowJS_Item(1)
    Response.Write "<form method='POST' name='myform' onSubmit='return CheckForm();' action='User_SpacePhoto.asp' target='_self'>"
    Response.Write "<table border=0 cellpadding=0 cellspacing=0 align=center width='95%'>"
    Response.Write "<tr><td><fieldset><legend>预览图片</legend>"
    Response.Write "  <table border='0' cellpadding='0' cellspacing='5' width='100%'>"
    Response.Write "    <tr height='300'><td align='center'>"
    Response.Write "        <img id='img' src='" & rsItem("Content") & "' border='0' width='460' height='350'>"
    Response.Write "    </td></tr>"
    Response.Write "  </table></fieldset></td></tr>"
    Response.Write "<tr><td align='center'><fieldset align='center'>"
    Response.Write "<legend align=left>上传图片</legend>"
    Response.Write "  <iframe class='TBGen' style='top:2px' id='UploadFiles' src='upload.asp?DialogType=userblogpic&size=" & UserSetting(27) & "' frameborder='0' scrolling='no' width='350' height='32'></iframe>"
    Response.Write "</fieldset></td></tr>"
    Response.Write "    <tr><td align='center'>图片地址：<Input name='url' type='Text' id='url' size='60' value='" & rsItem("Content") & "'></td></tr>"
    Response.Write "    <tr><td align='center'>图片说明：<Input name='Title' type='Text' id='Title' size='60' value='" & rsItem("Title") & "'></td></tr>"
    Response.Write "</table>"
    Response.Write "  <p align='center'>"
    Response.Write "   <input name='Action' type='hidden' id='Action' value='SaveModify'>"
    Response.Write "   <input name='ItemID' type='hidden' id='ID' value='" & rsItem("ID") & "'>"
    Response.Write "   <input name='ID' type='hidden' id='ID' value='" & BlogID & "'>"
    Response.Write "   <input name='Save' type='submit' value='保存修改结果' style='cursor:hand;'>&nbsp;"
    Response.Write "   <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='User_SpacePhoto.asp?ID=" & BlogID & "';"" style='cursor:hand;'>"
    Response.Write "  </p><br>"
    Response.Write "</form>"
    rsItem.Close
    Set rsItem = Nothing
End Sub

Sub SaveItem()
    Dim rsItem, sql, i
    Dim ItemID, Title, Content

    ItemID = PE_CLng(Trim(Request.Form("ItemID")))
    Title = Trim(Request.Form("Title"))
    Content = Trim(Request.Form("url"))

    If Title = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>图片说明不能为空</li>"
    Else
        Title = ReplaceText(Title, 2)
    End If

    If Content = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>图片地址不能为空</li>"
    End If
    
    If FoundErr = True Then
        Exit Sub
    End If

    Title = PE_HTMLEncode(Title)
    Content = ReplaceBadUrl(Content)
    Set rsItem = Server.CreateObject("adodb.recordset")
    If Action = "SaveAdd" Then
        ItemID = PE_CLng(Conn.Execute("Select max(ID) from PE_SpacePhoto")(0)) + 1
        sql = "select top 1 * from PE_SpacePhoto"
        rsItem.Open sql, Conn, 1, 3
        rsItem.addnew
        rsItem("ID") = ItemID
        rsItem("UserID") = UserID
        rsItem("BlogID") = BlogID
        rsItem("Title") = Title
        rsItem("Content") = Content
        rsItem("Datetime") = Now()

        rsItem.Update
        Conn.Execute ("update PE_Space set LastUseTime=" & PE_Now & " where ID=" & BlogID & "")
        rsItem.Close
    ElseIf Action = "SaveModify" Then
        If ItemID = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>不能确定图片的值</li>"
        Else
            sql = "select top 1 * from PE_SpacePhoto where ID=" & ItemID & " and UserID=" & UserID
            rsItem.Open sql, Conn, 1, 3
            If rsItem.BOF And rsItem.EOF Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>找不到此图片。</li>"
            Else
                rsItem("Title") = Title
                rsItem("Content") = Content
                rsItem("Datetime") = Now()
                rsItem.Update
            End If
            rsItem.Close
        End If
    End If
    Set rsItem = Nothing
    
    If FoundErr = True Then Exit Sub
    
    Response.Write "<br><br>"
    Response.Write "<table class='border' align=center width='400' border='0' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
    Response.Write "  <tr align=center> "
    Response.Write "    <td  height='22' align='center' class='title'> "
    If Action = "SaveAdd" Then
        Response.Write "<b>添加图片成功</b>"
    Else
        Response.Write "<b>修改图片成功</b>"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr>"
    Response.Write "    <td><table width='100%' border='0' cellpadding='2' cellspacing='1'>"
    Response.Write "          <td width='100' align='right'><strong>图片名称：</strong></td>"
    Response.Write "          <td>" & Title & "</td>"
    Response.Write "        </tr>"
    Response.Write "        <tr class='tdbg'> "
    Response.Write "          <td width='100' align='right'><strong>发表日期：</strong></td>"
    Response.Write "          <td>" & Now() & "</td>"
    Response.Write "        </tr>"
    Response.Write "      </table></td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td height='30' align='center'>"
    Response.Write "【<a href='User_SpacePhoto.asp?Action=Modify&ID=" & BlogID & "&ItemID=" & ItemID & "'>修改图片</a>】&nbsp;"
    Response.Write "【<a href='User_SpacePhoto.asp?Action=Add&ID=" & BlogID & "'>继续添加图片</a>】&nbsp;"
    Response.Write "【<a href='User_SpacePhoto.asp?ID=" & BlogID & "'>图片管理</a>】"
    Response.Write "【<a href='../Space/Showphoto.asp?ID=" & ItemID & "'>图片预览</a>】"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>" & vbCrLf
End Sub

Sub Del()
    Dim ItemID
    ItemID = Trim(Request("ItemID"))
    If IsValidID(ItemID) = False Then
        ItemID = ""
    End If
    If ItemID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请先选定图片！</li>"
        Exit Sub
    End If
    If InStr(ItemID, ",") > 0 Then
        Conn.Execute ("delete from PE_SpacePhoto Where ID in (" & ItemID & ") and UserID=" & UserID)
    Else
        Conn.Execute ("delete from PE_SpacePhoto Where ID=" & ItemID & " and UserID=" & UserID)
    End If
    Call CloseConn
    Response.Redirect ComeUrl
End Sub

Function GetSearchForm(Action)
    Dim strForm
    strForm = "<table border='0' cellpadding='0' cellspacing='0'>"
    strForm = strForm & "<form method='Get' name='SearchForm' action='" & Action & "'>"
    strForm = strForm & "<tr><td height='28' align='center'>"
    strForm = strForm & "<select name='Field' size='1'>"
    strForm = strForm & "<option value='Title' selected>图片名称</option>"
    strForm = strForm & "<option value='Content'>图片说明</option>"
    strForm = strForm & "</select>"
    strForm = strForm & "<input type='text' name='keyword'  size='20' value='关键字' maxlength='50' onFocus='this.select();'>"
    strForm = strForm & "<input type='submit' name='Submit'  value='搜索'>"
    strForm = strForm & "<input name='ID' type='hidden' id='ID' value='" & BlogID & "'>"
    strForm = strForm & "</td></tr></form></table>"
    GetSearchForm = strForm
End Function
%>