如何经营寿司店:关于ASP代码问题求

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/06 17:24:09
我在网上找了个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'><font color=000000 size=2>对不起你没有你点播的影片 </font></p>"
response.end
end if
title=rs("title")
ittype=rs("typeid")
%>
<HTML><HEAD><TITLE><%=homes%>《<%=title%>》</TITLE>
<base onclick="JavaScript:will()" />
<META http-equiv=Content-Type content="text/html; charset=gb2312"><link rel="Stylesheet" type="text/css" href="images/text_next.css">
<SCRIPT language=javascript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
mediaWindow = window.open(theURL,winName,features);
mediaWindow.focus();
}
//-->
</SCRIPT>
<SCRIPT language=JavaScript><!--
if (top.location != location) top.location.href = location.href;
self.moveTo(0,0);
self.resizeTo(screen.availWidth,screen.availHeight);
// --></SCRIPT>

Set KzSys = New Cls_Website

这句是建立一个对象,名称是KzSys,然后就可以使用这个对象中的一些方法和属性。根据对象名称来看,很可能是关于Web网站方面的一些操作,前缀Cls是Class的简写,也是类的命名规范。

KzSys.CheckSetupCache
KzSys.GetSetting

这两行就是执行这个类的两个方法。具体的含义还是到这个Cls_Website类中去看看吧。