如何循环替换sql表中的一个字段值，这个值必须通过其他程序循环生成

cg5696 2018-06-20 11:45:19

如何循环替换sql表中的一个字段值，
这个值必须通过其他程序循环生成



dim username,password,dwz

set rs = server.createobject("adodb.recordset")

sql="select uid,username,password from table_A where dalei = '"&request.queryString("dalei")&"'"

rs.open sql,ZGW_Conn,1,1

username = trim(rs("username"))

password = trim(rs("password"))



' --------------转换短网址 dwz------------------



Function BytesToBstr(body,Cset)

    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 Newstring(wstr,strng)

    Newstring=Instr(lcase(wstr),lcase(strng))

    if Newstring<=0 then Newstring=Len(wstr)

End Function

'抓取网页内容的函数

Function getPageContent(Url)

    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

    objXMLHTTP.Open "Get", Url, False, "", ""

    objXMLHTTP.Send

    getPageContent = BytesToBstr(objXMLHTTP.ResponseBody,"GB2312")

    Set objXMLHTTP = Nothing

End Function



Dim tempResult '保存返回值的变量

tempResult = getPageContent("http://api.ft12.com/api.php?url=http://www.baidu.com/members/logincheckjd.asp?username="&username&"&password="&password&"")

dwz=mid(tempResult,12)

'-------------短网址 dwz 转换 结束--------------------------->



'-------------数据表中 短网址 替换 --------------------------->

set cmd = server.createobject("adodb.recordset")

cmd="update  table_A   SET DWZ='"&dwz&"'"

cmd=cmd&"where username='"&username&"'"

zgw_conn.execute(cmd)

...全文

353 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

cg5696 2018-06-20

打赏
举报

需要替换DWZ字段，我的代码运行后，只替换了组开始的一条

文盲老顾 2018-06-20

打赏
举报

dim username,password,dwz
set rs = server.createobject("adodb.recordset")
sql="select uid,username,password from table_A where dalei = '"&request.queryString("dalei")&"'"
rs.open sql,ZGW_Conn,1,1
do while not rs.eof
	username = trim(rs("username"))
	password = trim(rs("password"))
	tempResult = getPageContent("http://api.ft12.com/api.php?url=http://www.baidu.com/members/logincheckjd.asp?username="&username&"&password="&password&"")
	dwz=mid(tempResult,12)
	set cmd = server.createobject("adodb.recordset")
	cmd="update  table_A   SET DWZ='"&dwz&"'"
	cmd=cmd&"where username='"&username&"'"
	zgw_conn.execute(cmd)
	rs.movenext
loop

太久没用asp了。。。do while 跟 loop。。。不要用end do，会跳出循环

文盲老顾 2018-06-20

打赏
举报

dim username,password,dwz
set rs = server.createobject("adodb.recordset")
sql="select uid,username,password from table_A where dalei = '"&request.queryString("dalei")&"'"
rs.open sql,ZGW_Conn,1,1
do while not rs.eof
	username = trim(rs("username"))
	password = trim(rs("password"))
	tempResult = getPageContent("http://api.ft12.com/api.php?url=http://www.baidu.com/members/logincheckjd.asp?username="&username&"&password="&password&"")
	dwz=mid(tempResult,12)
	set cmd = server.createobject("adodb.recordset")
	cmd="update  table_A   SET DWZ='"&dwz&"'"
	cmd=cmd&"where username='"&username&"'"
	zgw_conn.execute(cmd)
	rs.movenext
end do

上边忘了加采集部分代码了

文盲老顾 2018-06-20

打赏
举报

dim username,password,dwz
set rs = server.createobject("adodb.recordset")
sql="select uid,username,password from table_A where dalei = '"&request.queryString("dalei")&"'"
rs.open sql,ZGW_Conn,1,1
do while not rs.eof
	username = trim(rs("username"))
	password = trim(rs("password"))
	set cmd = server.createobject("adodb.recordset")
	cmd="update  table_A   SET DWZ='"&dwz&"'"
	cmd=cmd&"where username='"&username&"'"
	zgw_conn.execute(cmd)
	rs.movenext
end do

直接加循环就完事