txt.asp

WAP 书站程序 WAP 书站程序 WAP 书站程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.inc"-->
<%
Const ForReading = 1 
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from list_view where view_savetotxt=1 order by id desc"
rs.open rspl,conn,1,2
if not rs.eof then
	allrows = rs.RecordCount
	for i=1 to allrows
	    if rs("view_ok") <> "" and left(rs("view_ok"),7)<>"http://" then 
			if not rs.Eof then
				file=".."&rs("view_ok")&"" 
				FilePath=server.mappath(""&file&"") 
				if err then
					err.clear
				else
					Response.Write FilePath & "<br/>"

					Set fso = CreateObject("Scripting.FileSystemObject")

					If fso.FileExists(FilePath) then

						Set ts = fso.OpenTextFile(FilePath, ForReading) 
						if err then
							err.clear
						else
							if ts.AtEndOfStream<>true then  
								jumpip = ts.ReadLine
							else 
								jumpip = ""
							end if
						end if
						ts.close '一年六班在这里加一句
						set ts=nothing 
						

						if jumpip<> "" then
							rs("view_ok2") = jumpip
							rs("view_savetotxt") = 0

							rs.update()
						end if

					end if
					set fso=nothing
				end if
			end if
		end if
		rs.MoveNext
	next
end if
rs.close
set rs=nothing
conn.close
set conn = nothing
%>