把它变成动态路径 <%
Dim oRs
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & Server.Mappath("\book\nmmfzcz")& ";Extensions=asc,csv,tab,txt;"
Sql = "Select * From "&rs("bookpath")
Set oRs = Server.CreateObject("ADODB.RecordSet")
oRs.Open Sql, oConn, 3,1
Do While Not oRs.Eof
content=oRS(0)
Response.Write Replace(content,chr(13),"</br>&nbsp;&nbsp;&nbsp;")
oRs.MoveNext
Loop
%>