intsn.asp

湘域源在线产品防伪查询系统 可以查系统已有的防伪码

<!--#include file="conn.asp"-->
<%
'On Error Resume next
 Server.ScriptTimeOut = 9999
 i=0
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
ctime=Timer
thing=server.mappath("sn.txt")
 Call getEmail(thing)
response.write "已经生成"&i&"条记录,用时"&(Timer-ctime)&"秒"
%>
</Body>
</HTML>
<%
Function getemail(filepath)
Set MyTextFile=MyFileObject.OpenTextFile(filepath)
While not MyTextFile.AtEndOfStream
 txt=Trim(MyTextFile.ReadLine)
 sql="insert into Zm_p(p) values('"&txt&"')"
 rs.open sql,conn,1,1
 i=i+1
Wend
MyTextFile.Close
End Function
%>