home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / Writer.asp < prev    next >
Text File  |  2006-07-14  |  1KB  |  50 lines
  1. <%
  2.  Response.Buffer=true 
  3.  
  4. if Trim(Request.form("title"))<>"" and Trim(Request.form("body"))<>"" and Trim(Request.form("name"))<>"" then
  5.  
  6. title=Trim(Request.form("title"))
  7. body=Trim(Request.form("body"))
  8. name=Trim(Request.form("name"))
  9. sub_date=now()
  10.  
  11.  
  12. Dim ConnectObj
  13. Set ConnectObj=Server.CreateObject("ADODB.Connection") 
  14. ConnectObj.Open "Dbq="&Server.Mappath("my_data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" 
  15.                              
  16. '╜¿┴óRecordset╢╘╧≤
  17. Dim  Recordobj
  18. Set  Recordobj=Server.CreateObject("ADODB.Recordset")
  19. Recordobj.Open "Select * From speech",ConnectObj,0,2  
  20.  
  21. '╢¿╥σ╩²╫Θ
  22. dim Field(3), Valuess(3)
  23. '╜½╫╓╢╬╕│╓╡╕°╩²╫Θ╘¬╦╪
  24. Field(0)="title"
  25. Field(1)="body"
  26. Field(2)="name"
  27. Field(3)="sub_date"
  28.  
  29.  
  30. '╠φ╝╙╧α╙ª╡─╝╟┬╝
  31. Valuess(0)=title
  32. Valuess(1)=body
  33. Valuess(2)=name
  34. Valuess(3)=sub_date
  35.  
  36. Recordobj.AddNew Field, Valuess
  37. Recordobj.Update
  38. end if
  39. Recordobj.Close
  40. Set Recordobj=Nothing
  41. ConnectObj.Close
  42. Set ConnectObj=Nothing    
  43.  
  44.  
  45. Response.redirect("speech.asp")
  46. %>
  47.  
  48.  
  49.  
  50.