北京地质大学:asp中更新数据库问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/01 16:32:57
<%
ip=request.servervariables("remote_addr")
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\media.mdb"
set rs=server.createobject("ADODB.Recordset")
mysql="select * from fadd where ip_add='"&ip&"'"
rs.open mysql,con
if not rs.eof then
session("logon")=1
set rs=server.createobject("ADODB.Recordset")
mysql="update fadd set num=num+1 where ip_add='"&ip&"'"
rs.open mysql,con

else%>
<script language="javascript">
<!--
alert("对不起,你无权访问该页面!")
this.window.close()
-->
</script>
<%end if%>