Public Sub changelink()
Dim strTitle As String
Dim strContent As String
Dim ret
objRst.Close
objCon.Close
Set objRst = Nothing
Set objCon = Nothing
objCon.Open strConStr
objRst.Open "PE_Article", objCon, adOpenDynamic, adLockOptimistic
objRst.MoveFirst
Do While Not objRst.EOF
strTitle = objRst("title").Value
strContent = StrConv(objRst("content").Value, vbFromUnicode)
Form1.Text1.Text = strTitle
Form1.Text2.Text = strContent
If Len(strContent) < 300 Then
If InStr(1, strContent, "<", vbTextCompare) <> 0 Then
strTitle = "find the data!the id is " + Str(objRst("ArticleID").Value) + vbCrLf + "do you want change the data?"
ret = MsgBox(strTitle, vbOKCancel)
If ret = vbOK Then
strContent = Replace(strContent, "<", "<", 1, -1, vbTextCompare)
Form1.Text2.Text = strContent
objRst("content").Value = strContent
objRst.Update
End If
End If
End If
objRst.MoveNext
Loop
MsgBox "complete!"
End Sub
各位大虾帮忙看看是怎么回事？
