在线等待，参与讨论有分！--如何用asp语言编写数据库文件的导入和导出，备份和恢复？

Question

通过ASP。调用STORE PROCEDURE.方便，可靠！！！

Answer 1

ASP调用SQL SERVER 的STORE PROCEDURE.
安全，可靠！！！

Answer 2

ASP调用SQL SERVER 的STORE PROCEDURE.
安全，可靠！！！

Answer 3

倒出为txt文件  
 Set fs=nothing
     Set fs=Server.CreateObject("Scripting.FileSystemObject")
     TextFileName="ExportSupplierBill.txt"
     filepath=server.mappath(TextFileName)
     if  fs.FileExists(filePath) then
         fs.DeleteFile(filePath)
     end if
     
     Set MyFile=fs.CreateTextFile(filePath,true)set cn=server.CreateObject("Adodb.connection")
cn.Open "provider=sqloledb;server=yourserver;database=testdb;uid=sa;pwd="set rs=server.CreateObject("adodb.recordset")
rs.CursorLocation=3Strtmp1=Request.Form("Export1")
Strtmp2=Request.Form("Export2")
strtmp3=Request.Form("export3")
strtmp4=Request.Form("export4")if strtmp2="" and strtmp1="InGroupName" then
rs.Open "select In_Charge,In_BaseCharge,In_ServiceCharge,In_ExtraCharge,In_DiscountCharge,sum(In_Charge-In_DiscountCharge) As SumAll from callrecordtab where InseizeTime>'"&Strtmp3&"' and inseizetime<'"&Strtmp4&"' group by in_charge,in_basecharge,in_servicecharge,in_extracharge,In_DiscountCharge",cn
end ifif strtmp2="" and strtmp1="OutGroupName" then
rs.Open "select Out_Charge,Out_BaseCharge,Out_ServiceCharge,Out_ExtraCharge,Out_DiscountCharge,sum(Out_Charge-Out_DiscountCharge) As SumAll from callrecordtab where InseizeTime>'"&Strtmp3&"' and inseizetime<'"&Strtmp4&"' group by Out_charge,Out_basecharge,Out_servicecharge,Out_extracharge,Out_DiscountCharge",cn
end ifif Strtmp1="InGroupName" and Strtmp2<>"" then
rs.Open "select In_Charge,In_BaseCharge,In_ServiceCharge,In_ExtraCharge,In_DiscountCharge,sum(In_Charge-In_DiscountCharge) As SumAll from callrecordtab where  InGroupName='"&Strtmp2&"' and InseizeTime>'"&Strtmp3&"' and inseizetime<'"&Strtmp4&"' group by in_charge,in_basecharge,in_servicecharge,in_extracharge,In_DiscountCharge",cn
end ifif strtmp2<>"" and strtmp1="OutGroupName" then
rs.Open "select Out_Charge,Out_BaseCharge,Out_ServiceCharge,Out_ExtraCharge,Out_DiscountCharge,sum(Out_Charge-Out_DiscountCharge) As SumAll from callrecordtab where OutGroupName='"&Strtmp2&"' and  InseizeTime>'"&Strtmp3&"' and inseizetime<'"&Strtmp4&"' group by Out_charge,Out_basecharge,Out_servicecharge,Out_extracharge,Out_DiscountCharge",cn
end ifif Strtmp1="InGroupName" then if strtmp2="" then

myfile.writeline "******************************There Is All The InRoutegroupName*******************************"
Else 
myfile.writeline "******************************There InRoutgGoupName is " & Strtmp2 & " *******************************"
end if
 Myfile.WriteLine ""
      StrLine="In_Charge       ,In_BaseCharge    ,In_ServiceCharge ,In_ExtraCharge   ,In_DiscountCharge,SumAll"
   
     Myfile.WriteLine StrLine
     
      Myfile.WriteLine ""
         
        Do While not Rs.Eof
StrLine=""  Strline=left(trim(rs.Fields(0)) & "                         ,",18) & left(trim(rs.Fields(1)) & "                    ,",18) & left(trim(rs.Fields(2)) &"                  ,",18)& left(trim(rs.Fields(3)) &"                 ,",18)& left(trim(rs.Fields(4)) &"                  ,",18)& left(trim(rs.Fields(5)) &"                            ,",18)

Myfile.WriteLine StrLine   
 
Rs.MoveNext
Myfile.WriteLine ""
         Loop 
         
else  if strtmp2="" then

myfile.writeline "********************************There Is All The OutRoutegroupName***********************"
Else 
myfile.writeline "********************************There OutRoutgGoupName is " & Strtmp2 & " **************************"
end if
 Myfile.WriteLine ""
StrLine="Out_Charge       ,Out_BaseCharge   ,Out_ServiceCharge,Out_ExtraCharge  ,Out_DiscountCharge,SumAll"
   
     Myfile.WriteLine StrLine
     
      Myfile.WriteLine ""
         
        Do While not Rs.Eof
StrLine=""  Strline=left(trim(rs.Fields(0)) & "                         ,",18) & left(trim(rs.Fields(1)) & "                    ,",18) & left(trim(rs.Fields(2)) &"                  ,",18)& left(trim(rs.Fields(3)) &"                 ,",18)& left(trim(rs.Fields(4)) &"                  ,",19)& left(trim(rs.Fields(5)) &"                            ,",18)

Myfile.WriteLine StrLine   
 
Rs.MoveNext
Myfile.WriteLine ""
         Loop 
         
end if                  
         StrLine="There Have  " & rs.RecordCount & "  Record!"
         myfile.writeline strline
         rs.Close
   cn.Close

Answer 4

ASP调用SQL SERVER 的STORE PROCEDURE.
安全，可靠！！！

Answer 5

ASP调用SQL SERVER 的STORE PROCEDURE.
安全，可靠！！！

Answer 6

备份数据库
    strsql="backup database testdb to disk='"&filename&"'"
    set con=server.CreateObject("ADODB.Connection")
  cn.Open "provider=sqloledb;server=yourserver;database=testdb;uid=sa;pwd="    con.Execute strsql
cn.close

Answer 7

leimin:
ASP如何调用SQL SERVER 的STORE PROCEDURE？

Answer 8

备份数据库    
filename=path&"\BACKUP\"&filename&".bak"    strsql="backup database ITOPCallBack to disk='"&filename&"'"
    set con=server.CreateObject("ADODB.Connection")
    con.Open strcon
    con.Execute strsql
cn.close

Answer 9

liyunsong2000:
导入和恢复，还有导出的数据库命令是什么？

Answer 10

TO :asp_sql()
都用BCP:
导入：EXEC master..xp_cmdshell 'bcp test.dbo.P_Aspect in c:\temp1.txt -c -q -S"servername" -U"sa" -P""'导出：EXEC master..xp_cmdshell 'bcp test.dbo.P_Aspect out c:\temp1.txt -c -q -S"servername" -U"sa" -P""'
 
至于如何调用STORE PROCEDURE你可以看看书上又很多，我也可以给你一个实例，不过不是导入、导出文件的。TELL ME YOUR MAIL ADDRESS

Answer 11

....
set conn = server.createobject("adodb.connection")
constr="driver={SQL Server};server=hdlm;uid=sa;pwd=admin;database=auchan"
    conn.Open constr
conn.Mode=admodereadwrite
conn.ConnectionString=constr
conn.CursorLocation=aduseclient
conn.open
set au_adocmd=server.CreateObject("adodb.command")
au_adocmd.CommandText="Usp_AddDailyReport"//调用SQL STORE PROCEDURE
au_adocmd.ActiveConnection=constr
au_adocmd.CommandType=adCmdStoredProc '4 
.....

Answer 12

谢谢！
我的email:[email protected]

Answer 13

leimin:
我现在还不知道你这些代码如何使用，放在asp中提示错误