asp实例之vbscript与inputbox用法
<!--#include file="conn.asp"-->
<script language=vbscript>
<!--
dim x
sub first_onclick
a=inputbox("请输入数字："&chr(13)&"（请输入提示）","请输入序号")
x=a
if x<>"" then
msgbox("您输入的顺序号:"&chr(13)&x)
else
msgbox("您没有输入数字！")
end if
document.form1.paixu.value=x
end sub
-->
</script>
<form name="form1"
method="post" action="2.asp">
<input type= "hidden" name= "paixu" value
= " " >
<input type=button name=first value=输入数字>
<input type="submit" value="ok">
</form>
<%
dim paixu
paixu=request.Form("paixu")
'Response.write paixu
'Response.End
set rs=server.CreateObject("adodb.recordset")
sql="update products set paixu=paixu+1 where paixu>"
&paixu
Response.write sql
'Response.End
conn.execute sql%>
[from bszzw.com] |
|
