开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > .net编程 > 查看源码
savetest.asp
资源名称：whpower2007-8-24.rar　[点击查看]
上传用户：tiancihang
上传日期：2014-03-12
资源大小：21387k
文件大小：6k
源码类别：

.net编程

开发平台：

C#

savetest.asp：源码内容
  1. <%@Language="VBScript"%>
  2. <SCRIPT language="VBScript" runat="Server">
  3. Dim strReturnString,sFileName,sRelativePath
  4. '为了增强安全性，开发者可增加验证当前用户的功能，例如通过Session等
  5. '防止用户自己写客户端脚本向savedoc.asp提交非法文件
  6. Function SaveFile(sFilePath,sContent)
  7. On Error Resume Next
  8. Dim oStream
  10. '''''''''''''''  生成调试信息 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  11. Response.write("<div>&nbsp;3</ br></div>")                          ''
  12. Response.write("<div>Message : Begin Create ADODB.Stream ... </ br></div>")        ''
  13.                          ''
  14. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  15. Set oStream = Server.CreateObject("ADODB.Stream")
  17. '''''''''''''''  生成调试信息 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  18. If Err.number <> 0 Then                         ''
  19.    Response.write("<div>Message : Create ADODB.Stream error : " & Err & "</ br></div>")         '' 
  20. Else        ''
  21.      Response.write("<div>Message : Create ADODB.Stream  Success! </ br></div>" )        '' 
  22. End If                                                                                                 ''
  23.        ''
  24. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  26. oStream.Type = 1
  27. oStream.Open
  29. '''''''''''''''  生成调试信息 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  30. Response.write("<div>&nbsp;4</ br></div>")                         ''
  31. Response.write("<div>Message : Begin read sContent to  ADODB.Stream ...</ br></div> ")        ''
  32.        ''
  33. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  35. oStream.Write sContent
  37. '''''''''''''''  生成调试信息 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  38. If Err.number <> 0 Then                          ''
  39.    Response.write("<div>Message : read sContent to  ADODB.Stream error : " & Err & "</ br></div>")''  
  40. Else        ''
  41.      Response.write("<div>Message : read sContent to  ADODB.Stream  Success! </ br></div>" )        ''  
  42. End If                          ''
  43. Response.write("<div>&nbsp;5</ br></div>")                         ''
  44. Response.write("<div>Message : Begin save ADODB.Stream to file ... </div>")                            ''
  45.        ''
  46. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  48. oStream.SaveToFile sFilePath, 2
  50. '''''''''''''''  生成调试信息 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  51. If Err.number <> 0 Then                                                                ''
  52.    Response.write("<div>Message : save ADODB.Stream to file error : " & Err & "</ br></div>")     ''  
  53. Else                                                          ''
  54.      Response.write("<div>Message : save ADODB.Stream to file  Success!</ br></div>" )        ''     
  55. End If                                                               ''
  56. Response.write("<div>&nbsp;</ br></div>")                                                              ''
  57.        ''
  58. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  61. oStream.Close
  62. Set oStream = Nothing
  63. SaveFile = True
  64. If Err.number <> 0 Then
  65. SaveFile = False
  66. End If
  67. End Function
  69. Sub readAndSaveFile()
  70. On Error Resume Next
  71. Dim i
  72. Dim sFileContent
  73. Dim oXML
  75. '''''''''''''''  生成调试信息 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  76. Response.write("<div>Information : </ br></div>")                                                   ''
  77. Response.write("<div>&nbsp;1</ br></div>")                                                          ''
  78. Response.write("<div>Message : Begin Create Msxml2.DOMDocument ... </ br></div>")                   ''
  79. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  81. Set oXML = Server.CreateObject("Msxml2.DOMDocument")
  83. '''''''''''''''  生成调试信息 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  84. If Err.number <> 0 Then     ''
  85.    Response.write("<div>Message : Create Msxml2.DOMDocument error : " & Err & "</ br></div>")  '' 
  86. Else     ''
  87.      Response.write("<div>Message : Create Msxml2.DOMDocument  Success! </ br></div>" )      ''
  88. End If     ''
  89. Response.write("<div>&nbsp;2</ br></div>")     ''
  90. Response.write("<div>Message : Begin load Request ... </ br></div> ")     ''
  91.     ''
  92. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  93. oXML.async = false
  94. oXML.load Request
  95. sFileContent = oXml.documentElement.childNodes.item(0).nodeTypedValue
  96. 'FileName和RelativePath区分大小写
  97. sFileName    = oXml.documentElement.childNodes.item(0).Attributes.getNamedItem("FileName").Text
  98. sRelativePath= oXml.documentElement.childNodes.item(0).Attributes.getNamedItem("RelativePath").Text
  100. '''''''''''''''  生成调试信息 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  101. If Err.number <> 0 Then     ''
  102.    Response.write("<div>Message : Load Request error : " & Err & "</ br></div>")      '' 
  103. Else     ''
  104.      Response.write("<div>Message : Create Msxml2.DOMDocument  Success! </ br></div>" )          ''
  105. End If         ''
  106.     ''
  107. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  109. '得到文件扩展名
  110. Dim intP, strFileExName
  111. intP = InStrRev(sFileName, ".")
  112. strFileExName = Mid(sFileName, intP)
  113. '接受doc、ppt和xls类型文件。开发者可增加接受其他类型文件
  114. if strFileExName = ".doc" or strFileExName = ".xls" or strFileExName = ".ppt"  or strFileExName = ".wps" then
  115. SaveFile  server.mappath(".") & "" & sRelativePath & sFileName, sFileContent
  116. end if
  119. Set oXml = Nothing
  121. If Err.number <> 0 Then
  122. strReturnString = "-1"
  123. End If
  124. End Sub
  126. '执行文件
  127. readAndSaveFile
  128. If strReturnString = "-1" Then
  129.     Response.write("Save Error!")
  130. Else
  131.     Response.write("Save OK.")
  132. End If
  134. </SCRIPT>