--- title: "nyheter+bild" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/132935-nyheter-bild" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Krister" published: "2005-08-18T09:14:18.000Z" updated: "2005-08-18T09:14:18.000Z" replies: 0 views: 272 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/132935-nyheter-bild" --- # nyheter+bild ## #1 — Krister, 2005-08-18T09:14Z Hej Jag har ett scrip typ nyheter och skulle vilja att den som skriver in nyheterna även kan ladda upp en bild. Var lägger man in "uploadscripet utan komponent" då Scriptet ser ut så här \<% response.buffer = true %\> \ \ \xx\ \ body, td { font-family: Verdana; color: black; font-size: 10px; } .table { padding-bottom: 9pt; padding-right: 9pt; padding-top: 10pt; } .div1 { padding-left: 9pt; padding-top: 9pt; } .nav1 { padding-left: 9pt; color: white; } .nav3 { padding-left: 9pt; color: black; font-size: 8pt; } .nav2 {padding-right: 9pt; color: white; } A { text-decoration: none; color: #113A67; } \ \ \ \ \ \ \
Uppdatera din sida på ett lätt sätt\ \ \<% if NOT (Session ("userAccess") = "granted") then response.write ("\
Användarnamn\ \ ID pass \ \ \ ") openMethod = request.form ("openMethod") login = request.form ("login") password = request.form ("password") if openMethod = "logIn" and login = "XX" and password = "XX" then Session ("userAccess") = "granted" response.redirect ("admin.asp") End If End If %\> \<% if Session("userAccess") = "granted" then %\> \<% page = request.queryString ("page") %\> \<% 'setting dsn connection Set dc = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dc.Open "DBQ=" & Server.Mappath("database.mdb") & ";Driver={Microsoft Access Driver (\*.mdb)};" 'this function provides encoding, but since it's used in the guestbook script, \< and \> is no longer converted to HTML Function EncodeData(source) result1 = source result = "" for i = 1 to len(result1) resvalue="" if mid(result1,i,1)="'" then resvalue=resvalue+"''" if mid(result1,i,1)="\|" then resvalue=resvalue+"¦" if mid(result1,i,1)="&" then resvalue=resvalue+"&" if mid(result1,i,1)="""" then resvalue=resvalue+""" if mid(result1,i,1)=chr(13) then resvalue=resvalue+"\" if resvalue\<\>"" then result = result + resvalue else result = result + Mid(result1, i, 1) next EncodeData = result End Function %\> \<% 'this code writes all the modifications to the database action=request.queryString("action") 'we need to know what message should we deal with msgId = request.queryString("msgId") if action="submit" or action="delete" then 'gets the data from the form USER_MESSAGE = request.Form("USER_MESSAGE") USER_NAME = request.Form("USER_NAME") 'converts the data to HTML format using the EncodeDara function 'since DB fields can't be zero-length, in case they're empty, we'll set them to " " USER_MESSAGE = EncodeData(USER_MESSAGE) USER_NAME = EncodeData(USER_NAME) 'opens the database and writes data to it select case action case "delete" SQLCOMMAND = "DELETE GBOOK.\* FROM GBOOK WHERE (id = "& msgId &");" DC.EXECUTE(SQLCOMMAND) case "submit" MYSQL = "SELECT GBOOK.\* FROM GBOOK WHERE (id = " & msgId & ")" rs.Open MYSQL, dc, 1, 3 rs.Fields("USER_NAME") = USER_NAME rs.Fields("USER_MAIL") = USER_MAIL rs.Fields("USER_CITY") = USER_CITY rs.Fields("USER_URL") = USER_URL rs.Fields("USER_MESSAGE") = USER_MESSAGE rs.Update end select response.redirect ("admin.asp") End If %\> \<% action=request.queryString("action") if action="modify" then msgId = request.queryString ("msgId") MYSQL = "SELECT GBOOK.\* FROM GBOOK WHERE (id = "& msgId &")" rs.Open MySQL, dc, 3, 1 %\> \ \ \ \ \
\\Rubrik:\\\\