请高手帮忙!!!

ytcaicai 2004-05-08 01:25:22
<%
n=request.Form("tiaocha")
if n="" then
%>
<script language="VBScript">
msgbox "不能为空!"
window.location.href=("daochabiao.htm")
</script>
<%
else
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=sqloledb.1;uid=sa;pwd=;initial catalog=diaochabiao;data source=pc125"
conn.open
set rst=server.CreateObject("adodb.recordset")
dim sql
sql="select * from diaochabiao"
rst.open sql,conn,2,2
dim counter(4)
for i=0 to rst.fields.count-1
counter(i)=cint(rst.fields(i).value)
next
t=counter(n)
t=t+1
sql="update diaochabiao set "&rst.fields(n).name&"="&t
rst.open sql,conn,2,2
end if
请确认可行再回复谢谢!!
...全文
8 回复 点赞 打赏 收藏 举报
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-05-08 01:25
社区公告
暂无公告