UC知道关于ASP代码问题求
来源：百度知道 编辑：UC知道 时间：2024/09/28 07:53:11
我在网上找了个asp的电影程序,有点广告才能看到电影的观看地址和下载地址!可我点了广告还是看不到地址啊!请问是代码的哪里错了!我帖出代码来,演示地址是:http://www.xnxk.com代码如下:由于太大发不上来!QQ:375570569
-------------------------------------------
<!--#include file="articleconn.asp"-->
<!--#include file="inc/config.asp"-->
<%
articleid=request("id")
if isnumeric(articleid)=false then
response.redirect "error.asp"
end if
%>
<%
dim sql
dim rs
articleid=request("id")
set rs=server.createobject("adodb.recordset")
sql="update learning set hits=hits+1 where articleID="&articleid
rs.open sql,conn,1,3
sql="select * from learning where unlook=0 and articleid="&articleid
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>
-------------------------------------------
<!--#include file="articleconn.asp"-->
<!--#include file="inc/config.asp"-->
<%
articleid=request("id")
if isnumeric(articleid)=false then
response.redirect "error.asp"
end if
%>
<%
dim sql
dim rs
articleid=request("id")
set rs=server.createobject("adodb.recordset")
sql="update learning set hits=hits+1 where articleID="&articleid
rs.open sql,conn,1,3
sql="select * from learning where unlook=0 and articleid="&articleid
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>
Set KzSys = New Cls_Website
这句是建立一个对象，名称是KzSys,然后就可以使用这个对象中的一些方法和属性。根据对象名称来看，很可能是关于Web网站方面的一些操作，前缀Cls是Class的简写，也是类的命名规范。
KzSys.CheckSetupCache
KzSys.GetSetting
这两行就是执行这个类的两个方法。具体的含义还是到这个Cls_Website类中去看看吧。