Case "upload.htm"
Dim sb As New StringBuilder
sb.appendLine("<form enctype='multipart/form-data' action='accept.htm' method='post' id='form1' name='form1' c>")
sb.appendLine("请选择要上传的文件(sample.bak): <input type='file' name='up1' id='up1'><br/><br/>")
sb.appendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
sb.appendLine("</form>")
e.WriteString(sb.ToString)
Case "accept.htm"
Dim sb As New StringBuilder
For Each key As String In e.Files.Keys
sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
For Each fl1 As String In e.Files(key)
sb.AppendLine(fl1 & "<br>")
e.SaveFile(key,fl1,"d:\web\uploadfiles\" & fl1) '保存接收到的文件
Next
sb.AppendLine("</br>")
Next
sb.AppendLine("以上文件服务器已正确接收并保存!")
cmd.C
cmd.CommandText = "use master;ALTER DATABASE [原材料库存] SET OFFLINE WITH ROLLBACK IMMEDIATE;RESTORE DATABASE 原材料库存 FROM DISK='d:\web\uploadfiles\sample.bak' With REPLACE;ALTER database [原材料库存] set online"
cmd.ExecuteNonQuery
e.WriteString(sb.ToString)