最新三国手游排行榜:asp中更新数据库问题

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 20:07:54
<%
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%>