daoru2.asp

来自「数据结构课程设计之最小生成数的K算法的实现 简短 简洁」· ASP 代码 · 共 38 行

<%@ Language=VBScript %>
<%
dim msvr,mid,mpwd,mdb,mtb,mto
msvr="192.168.60.216"
mid="sa"
mpwd="19800723"
mdb="kydb_mis"
mtb=request.form("cktb2")
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")
filename = mto
SET myfile=fs.OpenTextFile(filename,1,0,0)

myfile.SkipLine

DO WHILE NOT myfile.AtEndOfStream

''''''初始化变量''''''''''''''''

strLine=""      
strLine=Trim(myfile.ReadLine)
response.write(strLine)
aryReturn = Split(strLine,chr(9))


loop
%>