2.asp

数据结构课程设计之最小生成数的K算法的实现 简短 简洁

<%@ Language=VBScript %>
<%
dim msvr,mid,mpwd,mdb,mtb,mto
msvr=request.form("cksvr")
mid=request.form("ckid")
mpwd=request.form("ckpwd")
mdb=request.form("ckdb")
mtb=request.form("cktb")
mto=request.form("ckto")


	
dim conn,connstr
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};"+"server="+msvr+";uid="+mid+";pwd="+mpwd+";database="+mdb
conn.Open connstr

Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = mto
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)

sql="select * from "& mtb &""
set rs= server.CreateObject("ADODB.recordset")	
rs.open sql,conn,1,3	
if not rs.eof and not rs.bof then
fdcount=rs.recordcount

dim strLine
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next

'--将表的列名先写入EXCEL
myfile.writeline strLine

Do while Not rs.EOF
strLine=""

for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine

rs.MoveNext
loop
end if
link="<A HREF=" & filename & ">Open The  File</a>"
Response.write link
%>