asp读取txt内容 - 个人学习记录

这个业务逻辑多少都有点奇怪了，阅读浏览次数增值在新闻详情页的控制器方法里setInc，这怎么还写进模型事件里了。如果非要用onAfterRead也可以，把新闻文章的内容单独分出来一个news_content表，然后把它和news做关联，然后给news_content表的onAfterRead事件做增值处理，这样点进新闻页内查询到文章内容时才会触发它。: 评 TP6模型事件-查询后onAfterRead不好用

文章标签更多

ThinkPHP (254)

Mysql (58)

DedeCms (33)

jQuery (67)

证件照 (1)

尺寸大小 (2)

背景颜色 (1)

setInc (4)

setDec (4)

onclick (5)

友情链接更多

超纯水设备

免费设计

海报设计

快递查询

createobject mappath opentextfile atendofstream

打开边栏(ESC) 关闭边栏(ESC)

do while循环

<%@Language="vbscript" Codepage="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" > 
<!--必须加上页面编码，否则出错或乱码-->
<%
dim ss(20)
set fs=server.createobject("scripting.filesystemobject") 
file=server.mappath("样本.txt") 
set txt=fs.opentextfile(file,1,true) 
i=1
do while not txt.atendofstream
	if i>20 then
		exit do
	end if
	
line=txt.readline
arr=split(line,",")
str="编号："&arr(0)&" 验证码:"&arr(1)&""
response.write str & "bbbb"&i&"<br>" 
i=i+1
loop
%>

输出结果

编号：abc 验证码:123bbbb1
编号：bqwe 验证码:123bbbb2
编号：dsa 验证码:123bbbb3
编号：asdf 验证码:123bbbb4
编号：asdfasdf 验证码:123bbbb5

for next循环

<%@Language="vbscript" Codepage="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" > 
<!--必须加上页面编码，否则出错或乱码-->
<%
dim ss(20)
set fs=server.createobject("scripting.filesystemobject") 
file=server.mappath("样本.txt") 
set txt=fs.opentextfile(file,1,true) 
for n=1 to 20 '读取前二十行
if txt.atendofstream then exit for
line=txt.readline
response.write line & "aaaaa<br>"
next
%>

输出

abc,123aaaaa
bqwe,123aaaaa
dsa,123aaaaa
asdf,123aaaaa
asdfasdf,123aaaaa

赏

前一篇

asp中文乱码问题

后一篇

asp获取1~3随机数

相关推荐

ASP的Base64加密解密函数

ASP | 2018-07-19 17708

<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '...

请问这个函数是什么意思 createobject("MSXML2.XMLHTTP")

ASP | 2018-03-08 5780

private Function getHTTPPage(url) On Error Resume Next Dim http Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send If http.readyState ...