您所在位置：主题：自动刷新
hpycs
[专家分：30] 发布于 2008-01-04 01:18:00
请高手帮帮我，我是菜鸟，先谢了！
网页自动刷新时,自动刷新 输出数量 ，但文本框 T1 输入中的内容在刷新时也会清空
只刷新 输出数量可以吗？
<! 连接数据库 !>
<%
Dim ConnectionString
ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;persist security info =false;Data Source=" & server.mappath("1/Sale0200.mdb") & ";Jet OLEDB:Database Password="
set db= server.createObject("ADODB.Connection")
db.open ConnectionString
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页</title>
<script>
<!--
var limit="0:15"//修改刷新时间
if (document.images){
var parselimit=limit.split(":")
parselimit=parselimit[0]*60+parselimit[1]*1
}
function beginrefresh(){
if (!document.images)
return
if (parselimit==1)
window.location.reload()
else{
parselimit-=1
curmin=Math.floor(parselimit/60)
cursec=parselimit%60
if (curmin!=0)
curtime=curmin+"分"+cursec+"秒后重刷本页！"
else
curtime=cursec+"秒后重刷本页！"
window.status=curtime
setTimeout("beginrefresh()",1000)
}
}
window.onload=beginrefresh
//-->
</script>
</head>
<body>
<table border="1" width="43%" id="table1" bordercolor="#008080">
<tr>
<td width="203">输出</td>
<td>输入</td>
</tr>
<tr>
<%set rs= server.createObject("ADODB.Recordset")
sql="select * from shengxiao where Insert=1"
rs.open sql,db,3,3
if rs.eof then
response.write "没有"
else%>
<td width="75" align="center"><%=rs("Shuliang")%></td><!输出数量!>
<%end if
rs.close%>
<td>
<form method="POST" action="1.asp">
<p><input type="text" name="T1" size="20"></p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
</td>
</tr>
</table>
</body>
</html>
网页自动刷新时,自动刷新 输出数量 ，但文本框 T1 输入中的内容在刷新时也会清空
只刷新 输出数量可以吗？
<! 连接数据库 !>
<%
Dim ConnectionString
ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;persist security info =false;Data Source=" & server.mappath("1/Sale0200.mdb") & ";Jet OLEDB:Database Password="
set db= server.createObject("ADODB.Connection")
db.open ConnectionString
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页</title>
<script>
<!--
var limit="0:15"//修改刷新时间
if (document.images){
var parselimit=limit.split(":")
parselimit=parselimit[0]*60+parselimit[1]*1
}
function beginrefresh(){
if (!document.images)
return
if (parselimit==1)
window.location.reload()
else{
parselimit-=1
curmin=Math.floor(parselimit/60)
cursec=parselimit%60
if (curmin!=0)
curtime=curmin+"分"+cursec+"秒后重刷本页！"
else
curtime=cursec+"秒后重刷本页！"
window.status=curtime
setTimeout("beginrefresh()",1000)
}
}
window.onload=beginrefresh
//-->
</script>
</head>
<body>
<table border="1" width="43%" id="table1" bordercolor="#008080">
<tr>
<td width="203">输出</td>
<td>输入</td>
</tr>
<tr>
<%set rs= server.createObject("ADODB.Recordset")
sql="select * from shengxiao where Insert=1"
rs.open sql,db,3,3
if rs.eof then
response.write "没有"
else%>
<td width="75" align="center"><%=rs("Shuliang")%></td><!输出数量!>
<%end if
rs.close%>
<td>
<form method="POST" action="1.asp">
<p><input type="text" name="T1" size="20"></p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
</td>
</tr>
</table>
</body>
</html>