‘点正常链接方法很多，这里介绍的是自动点JavaScript链接
Function RunJS(scripts)
‘VB 自动点网页中的Javascript链接
Dim Document
On Error GoTo ErrHandle
If scripts = "" Then Exit Function
Set Document = WebBrowser1.Document
Document.ParentWindow.execScript scripts, "javascript"
Exit Function
ErrHandle:
MsgBox "Err"
End Function
‘——————
调用：Call RunJS(Javascript:jsfunci())
substr() 方法可在字符串中抽取从 start 下标开始的指定数目的字符.
stringObject.substr(start,length);start必须,length可选.
start 是截取的开始位置的下标,从0开始算起,必须是数字.可以是负数,-1是倒数第一个字符,-2是倒数第二个字符,以此类推.
length 是要截取的字符的长度,必须是数字.如果未指定,则从start位置处� ......
1. 按钮式：
<INPUT name="pclog" type="button" value="GO" onClick="location.href='http://xxxx.cn/'">
2. 链接式：
<a href="javascript:history.go(-1)">返回上一步</a>
<a href="<%=Request.ServerV ......
