asp access 转化为 SQL2000
ifrequest.QueryString("act")="delre"thensetrs=server.createobject("adodb.recordset")s...
if request.QueryString("act")="delre" then
set rs=server.createobject("adodb.recordset")
sql="select * from zdi where cint(m_id)='"&rs1("m_con")&"'"
rs.open sql,conn,1,3
Sql="delete from zdi where cint(m_id)='"&rs1("m_con")&"'"
Conn.Execute(sql)
Set Rs = Nothing
Conn.Close()
rs("m_re")=rs("m_re")-1
Sql="update zdi set m_re='"&rs1("m_con")&"' where cint(m_id)='"&rs1("m_con")&"'"
Conn.Execute(sql)
Set Rs = Nothing
Conn.Close()
Response.write("<script language=javascript>alert('删除回复成功!')</script><meta http-equiv='refresh' content='0;URL="& Url &"'>")
response.End()
end if
如何转化为SQL2000 数据库 删除 更新 形式。。。。 展开
set rs=server.createobject("adodb.recordset")
sql="select * from zdi where cint(m_id)='"&rs1("m_con")&"'"
rs.open sql,conn,1,3
Sql="delete from zdi where cint(m_id)='"&rs1("m_con")&"'"
Conn.Execute(sql)
Set Rs = Nothing
Conn.Close()
rs("m_re")=rs("m_re")-1
Sql="update zdi set m_re='"&rs1("m_con")&"' where cint(m_id)='"&rs1("m_con")&"'"
Conn.Execute(sql)
Set Rs = Nothing
Conn.Close()
Response.write("<script language=javascript>alert('删除回复成功!')</script><meta http-equiv='refresh' content='0;URL="& Url &"'>")
response.End()
end if
如何转化为SQL2000 数据库 删除 更新 形式。。。。 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询