Asp问题,请各位大狭帮帮我吧!

来源：百度知道 编辑：UC知道 时间：2024/05/17 06:41:16
我是刚毕业的学生，相从事Asp这项工作，我今天下载了一个Asp源码,我想修改里面的程序,但是页里面几乎没有用到HTML标识，HTML都储存在数据裤里的，这让我很难下手，你们看，连这个我都不会唉...，我在这里求各位大哥，大姐们教我一招修改代码的方法好吗!(源程序如下:)
Private Sub Class_Initialize()
savelog=0'设置为1的时候会记录攻击或错误错信息。
SqlQueryNum = 0
Reloadtime=14400
'CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
CacheName = "asp163"
ReloadCount=0
IsTopTable = 0
'Forum_sn = LCase(Replace(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"),Split

(request.ServerVariables("SCRIPT_NAME"),"/")(ubound(Split(request.ServerVariables("SCRIPT_NAME"),"/"))),""))
Forum_sn = "asp163"
Vipuser = False:Boardmaster = False
Superboardmaster = False:Master = False:FoundIsChallenge = False:FoundUser = False

我做ASP程序有两年了.告诉你一点.这个源码你不要看了.就算看懂了你也学不到东西!这段代码他把所用到的东西都写成函数和过程了.然后用到的时候直接调用过程或函数即可.还是在网上下一些没有丰装的ASP页面来看.这样你会进步很快的!(request.ServerVariables("SCRIPT_NAME"),"/")(ubound(Split(request.ServerVariables("SCRIPT_NAME"),"/"))),""))获得服务器的名称注:ubound是函数 作用:返回数组最大可用下标
Forum_sn = "asp163" '把字符串asp163给变量Forum_sn
Vipuser = False:Boardmaster = False
Superboardmaster = False:Master = False:FoundIsChallenge = False:FoundUser = False '给两个变量附初值
BoardID = Request("BoardID") '使其为浮点型
If IsNumeric(BoardID) = 0 or BoardID = "" Then BoardID = 0
BoardID = Clng(BoardID)
MemberName = checkStr(Trim(Request.Cookies(Forum_sn)("username")))
MemberWord = checkStr(Trim(Request.Cookies(Forum_sn)("password")))
UserHidden = Request.Cookies(Forum_sn)("userhidden")
UserID = Trim(Request.Cookies(Forum_sn)("UserID"))
If IsNumeric(User