UC知道加分,帮我解决下这个分页问题,状态栏的显示,js捕捉input的信息,onchange
来源：百度知道 编辑：UC知道 时间：2024/06/01 10:20:36
代码如下。现在的问题是当改变input里的页数后，鼠标指向go的时候，ie状态栏显示的page值仍然是当前页数，我要求可以捕捉input的值，实时显示在状态栏。是否可以用input的onblur？ onchange事件来获取input的值然后存在一个变量或者设置另外的一个 hidden的id里面 然后在go的onmouseover事件里把值取出来。具体怎末写代码？
实现了再加分。深深感谢
Sub PageControl(iCount,pagecount,page,table_style,font_style)
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table width=90% border=0 cellpadding=0 cellspacing=0 align=center >" & vbCrLf )
Response.Write("<form method=post action=''><TR
实现了再加分。深深感谢
Sub PageControl(iCount,pagecount,page,table_style,font_style)
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table width=90% border=0 cellpadding=0 cellspacing=0 align=center >" & vbCrLf )
Response.Write("<form method=post action=''><TR
var sInput = document.getElementById("xxx").value
var a = window.defaultStatus;
xx.onmousemove = function(){
window.status = sInput
}
xx.onmouseout = function(){
window.status = a
}
Response.Write(" 转到" & "<INPUT TYEP=TEXT CLASS=wenbenkuang NAME=page id= page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO onmouseover=""window.status= '"& action & "?" & temp &"page=' + document.getElementById('page').value;"" />")