ASP循环录入数据库问题

[byxiazai]

<!--#include file="../conn.asp"-->
<%
strinfo1 = GetHTTPPage("http://video.shishicai.cn/haoma/cqssc/list/120.aspx")
strinfo1=replace(strinfo1,"""","")
strinfo1 =strCut(strinfo1,"<tr id=0 class=>","</tr>",2)
strinfo1=replace(strinfo1,"<span class=btnnum btnnuma>","<span class=btnnum>")
qihao= strCut(strinfo1,"<td>","</td>",2)
strinfo1=replace(strinfo1,"<td>"&qihao&"</td>","")
haomas =strCut(strinfo1,"<td>","</td>",2)
strinfo1 =mid(strinfo1,instr(strinfo1,"</td>")+5)


kjsj = strCut(strinfo1,"<td>","</td>",2)

	  hm1 =	strCut(haomas,"<span class=btnnum>","</span>",2)
	  haomas=mid(haomas,instr(haomas,"</span>")+6)
	  hm2 =	strCut(haomas,"<span class=btnnum>","</span>",2)
	  haomas=mid(haomas,instr(haomas,"</span>")+6)
	  hm3 =	strCut(haomas,"<span class=btnnum>","</span>",2)
	  haomas=mid(haomas,instr(haomas,"</span>")+6)
	  hm4 =	strCut(haomas,"<span class=btnnum>","</span>",2)
	  haomas=mid(haomas,instr(haomas,"</span>")+6)
	  hm5 =	strCut(haomas,"<span class=btnnum>","</span>",2)
	  haoma=hm1&","&hm2&","&hm3&","&hm4&","&hm5

response.write "重庆彩"&qihao&"期,开奖号码:"& haoma&"开奖时间"& kjsj

sql="select count(*) from ssc_info where lottery_num='"&qihao&"'"
rs=conn.execute(sql)
if rs(0)=0 then

sql = "insert into ssc_info(lottery_num,num_info1,num_info2,num_info3,num_info4,num_info5,addtime,kjtime) values('"&qihao&"','"&hm1&"','"&hm2&"','"&hm3&"','"&hm4&"','"&hm5&"','"&now()&"','"&kjsj&"')"

conn.execute(sql)
end if

response.write "<iframe name=lottery src=chkwin_auto.asp?lt=ssc&cp_num="&qihao&" width=0 height=0 frameborder=0 scrolling=no></iframe>"
set rs=nothing
closedb()
%>

<%
Function getHTTPPage(url) 
	On Error Resume Next
	dim http 
	set http=Server.createobject("MSXML2.XMLHTTP") 
	Http.open "GET",url,false 
	Http.send() 
	if Http.readystate<>4 then
		exit function 
	end if 
    getHTTPPage=Http.responsetext
    set http=nothing
	If Err.number<>0 then 
		getHTTPPage="0"

		Response.Write "" 
		Err.Clear
	End If  
End function

Function BytesToBstr(body,Cset)
	dim objstream
	set objstream = Server.CreateObject("adodb.stream")
	objstream.Type = 1
	objstream.Mode =3
	objstream.Open
	objstream.Write body
	objstream.Position = 0
	objstream.Type = 2
	objstream.Charset = Cset
	BytesToBstr = objstream.ReadText 
	objstream.Close
	set objstream = nothing
End Function

Function strCut(strContent,StartStr,EndStr,CutType)
	Dim S1,S2
	On Error Resume Next
	Select Case CutType
	Case 1
		S1 = InStr(strContent,StartStr)
		S2 = InStr(S1,strContent,EndStr)+Len(EndStr)
	Case 2
		S1 = InStr(strContent,StartStr)+Len(StartStr)
		S2 = InStr(S1,strContent,EndStr)
	End Select
	If Err Then
		strCute = ""
		Err.Clear
		Exit Function
	Else
		strCut = Mid(strContent,S1,S2-S1)
	End If
End Function

%>
<meta http-equiv="refresh" content="60; "> 
<p>　</p>

获取完开奖号码，总是重复两次循环录入数据库.
例如:
20100221-094 51504
20100221-093 80539
20100221-094 51504
20100221-093 80539

[byxiazai]

获取完开奖号码，总是重复两次循环录入数据库.

[挨踢直男]

查看一下 数剧库页面有没有刷新两次