diaoc1.asp

大家好

<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
'######################
'BuildTime:2000/5/17
'Author:Gxx
'ModifyTime:
'#####################
%>

<%
id1=request("id")
slct=request("select")
yj=request("yj")
'response.write id1
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs1=server.createobject("adodb.recordset")
rs1.LockType=adLockOptimistic
sqlstr1="select top 10 * from diaoc1 where id='"& id1 &"' order by tm desc"
rs1.open sqlstr1,conn

if rs1.eof then 
	response.write "数据库不能为空"
	response.end
end if
select case slct
	case "db1"
		rs1("db01")=rs1("db01")+CInt(1)
	case "db2"
		rs1("db02")=rs1("db02")+CInt(1)
	case "db3"
		rs1("db03")=rs1("db03")+CInt(1)
	case "db4"
		rs1("db04")=rs1("db04")+CInt(1)
end select
rs1.update
'set rs1=nothing
response.write "OK!"
if yj<>"" then
sqlstr2="insert into diaoc2 (id,yj) values ('"&id1&"','"&yj&"')"
conn.execute sqlstr2
end if
set conn=nothing
response.write "<a href=""index.asp"">返回</a>"

%>