想判断txt文件里是否与数据库里的一个字段是否有相同的。谢谢。

weixin_42239916 2018-05-18 08:56:06

<%

'打开文本文件
Dim LogFileName
LogFileName = "bb.txt"
set MyFileObject=server.CreateObject("Scripting.FileSystemObject")
set MyLogFile=MyFileObject.OpenTextFile(server.MapPath(LogFileName),1)

Do While Not MyLogFile.AtEndOfStream
LogMessage=Trim(MyLogFile.readline)
LogArr = split(LogMessage,"※")
set dlrs = server.createobject("adodb.recordset")
dlsql="select * from prod where tel="&Trim(LogArr(4))
dlrs.open dlsql,conn,1,3
if not dlrs.eof then
response.write "重复<br>"
response.write dlsql
else
response.write "不重复<br>"
end if
loop

...全文

432 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

hookee 2018-05-19

打赏
举报


<%

Dim LogFileName
LogFileName = "bb.txt"
Set MyFileObject = CreateObject("Scripting.FileSystemObject") 
Set MyLogFile = MyFileObject.OpenTextFile(Server.MapPath(LogFileName),1)
Set dlrs = Createobject("ADODB.Recordset")
dlrs.CursorLocation = 3
Do While Not MyLogFile.AtEndOfStream
	LogMessage=Trim(MyLogFile.readline)
	LogArr = Split(LogMessage, "※")
	If UBound(LogArr) >= 4 Then
		v = Replace(Trim(LogArr(4)), "'", "''")
		dlsql = "SELECT TOP 1 tel FROM prod WHERE tel='" & v & "'"
		dlrs.Open dlsql, conn, 1, 1
		If dlrs.EOF And dlrs.BOF Then
			Response.Write "不重复<br>"
		Else
			Response.Write "重复<br>"
		End If
		dlrs.Close
	End If
Loop
Set dlrs = Nothing
conn.Close
Set conn = Nothing

%>

weixin_42239916 2018-05-19