ASP编程：Discuz!NT论坛整合ASP程序论坛教程

大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧程序|教程|论坛|discuz|整合本教程所需文件包下载:http://www.alixixi.com/download/dll.rar
1.在你的论坛bin目次里新建一个目次,称号如DLL(纷歧定创建在bin目次里,不外保举在此创建)
2.把DLL目次里的一切文件上传到你论坛的bin/DLL目次里
3.用记事本翻开"注册DLL组件.bat"文件,编纂内里的D:DiscuzNTinDLLRegAs为你的网站相对路径
4.修正后保留文件,加入记事本,然后双击该文件即注册乐成
5.注册乐成后可把DiscuzNT.dll和DiscuzNT.tlb文件除外的其他文件全体删除
以下是援用片断：
DISCUZNT2.0asp完善整合(不必要修改bbs任何代码)
演示:http://www.yuwuxian.com
下载:http://www.8765432.cn
同时感激"永不保持"编写DLL文件
琪琪小子-QQ:231888
======================================================================================
上岸时纪录cookies页面代码
<!--#includefile="md5.asp"-->//32位md5加密文件,必定得挪用,该文件各处有,我就不供应了
<%
dimUsername,Password,Question,Answer,Expires,Verify
Username=replace(trim(Request.form("Username")),"’","’’")//用户名
Password=replace(trim(Request.form("Password")),"’","’’")//用户暗码
Question=replace(trim(Request.form("Question")),"’","’’")//暗码成绩
Answer=replace(trim(Request.form("Answer")),"’","’’")//暗码谜底
Expires=replace(trim(Request.form("Expires")),"’","’’")//cookies纪录时长
Verify=replace(trim(Request.form("Verify")),"’","’’")//考证码
//此处加上提交的考证,如xxx不克不及为空等或字段长度等
sql="select*from[dnt_users]whereusername=’"&Username&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=conn.execute(sql)
ifrs.eofthen
Response.Write("<script>alert(’提醒!

用户帐号毛病!’);history.back();</script>")
Response.end
else
ifrs("password")md5(Password)then
Response.Write("<script>alert(’提醒!

用户暗码毛病!’);history.back();</script>")
Response.end
else
ifrs("secques")Answerthen
Response.Write("<script>alert(’提醒!

平安谜底毛病!’);history.back();</script>")
Response.end
else
DimDES,DESCode
SetDES=Server.CreateObject("DiscuzNT.DES")
DESCode=DES.Encode(""&rs("password")&"","Z143D2VBML")//Z143D2VBML为你的DES加密密钥,请用记事本翻开CONFIG目次里的general.config文件,找到<Passwordkey>Z846D4VVZL</Passwordkey>这行,<Passwordkey>与</Passwordkey>两头的英文就是你的密钥,把密钥修正成你的文件的
SetDES=Nothing
Response.Cookies("dnt")("userid")=rs("uid")
Response.Cookies("dnt")("password")=DESCode
Response.Cookies("dnt")("tpp")=rs("tpp")
Response.Cookies("dnt")("ppp")=rs("ppp")
Response.Cookies("dnt")("pmsound")=rs("pmsound")
Response.Cookies("dnt")("invisible")=rs("invisible")
Response.Cookies("dnt")("referer")="index.aspx"
Response.Cookies("dnt")("sigstatus")=rs("sigstatus")
Response.Cookies("dnt")("expires")=Expires
ifExpires0then
Response.Cookies("dnt").Expires=DateAdd("N",Expires,Now())
endif
Response.Cookies("dnt").Domain=".xxx.com"//修正为你的域名,注重后面带.(点)
Response.Cookies("dnt").Secure=False
endif
endif
endif
rs.close
setrs=nothing
//此处加上岸后转向或向其他操纵,详细你本人看着办
%>



===========================================================================================
注册页面代码(注册完后同时上岸形态)

<!--#includefile="md5.asp"-->//32为md5加密文件,必定得挪用,该文件各处有,我就不供应了
<%
dimUsername,Password,CheckPassword,Email,Question,Answer,Verify
Username=replace(trim(Request.form("Username")),"’","’’")//用户名
Password=replace(trim(Request.form("Password")),"’","’’")//用户暗码
CheckPassword=replace(trim(Request.form("CheckPassword")),"’","’’")//暗码考证
Question=replace(trim(Request.form("Question")),"’","’’")//暗码成绩
Answer=replace(trim(Request.form("Answer")),"’","’’")//暗码谜底
Expires=replace(trim(Request.form("Expires")),"’","’’")//cookies纪录时长
Verify=replace(trim(Request.form("Verify")),"’","’’")//考证码
//此处加上提交的考证,如xxx不克不及为空等或字段长度等
sql="select*from[dnt_users]whereusername=’"&Username&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=conn.execute(sql)
ifnotrs.eofthen
Response.Write("<script>alert(’提醒!

用户帐号已被注册利用!’);history.back();</script>")
Response.end
endif
rs.close
setrs=nothing
sql="select*from[dnt_users]whereEmail=’"&Email&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=conn.execute(sql)
ifnotrs.eofthen
Response.Write("<script>alert(’提醒!

电子邮箱已被注册利用!’);history.back();</script>")
Response.end
endif
rs.close
setrs=nothing
ip=request.servervariables("http_x_forwarded_for")
ifip=""thenip=request.servervariables("remote_addr")
sql="insertinto[dnt_users](username,nickname,password,secques,gender,adminid,groupid,groupexpiry,extgroupids,regip,joindate,lastip,lastvisit,lastactivity,lastpost,lastpostid,lastposttitle,posts,digestposts,oltime,pageviews,credits,extcredits1,extcredits2,extcredits3,extcredits4,extcredits5,extcredits6,extcredits7,extcredits8,avatarshowid,email,bday,sigstatus,tpp,ppp,templateid,pmsound,showemail,newsletter,invisible,newpm,newpmcount,accessmasks,onlinestate)values(’"&Username&"’,’’,’"&MD5(Password)&"’,’"&Answer&"’,0,0,10,0,’’,’"&ip&"’,’"&now()&"’,’"&ip&"’,’"&now()&"’,’"&now()&"’,’"&now()&"’,0,’’,0,0,0,0,0,’0.00’,’0.00’,’0.00’,’0.00’,’0.00’,’0.00’,’0.00’,’0.00’,0,’"&Email&"’,’’,1,0,0,0,1,1,1,0,1,1,0,1)"
setrs=conn.execute(sql)
sql="selectuidfrom[dnt_users]whereusername=’"&Username&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=conn.execute(sql)
Uid=rs(0)
sql="insertinto[dnt_userfields](uid,avatar,avatarwidth,avatarheight,authtime,authflag)values(’"&Uid&"’,’avatarscommon.gif’,0,0,’"&now()&"’,0)"
setrs=conn.execute(sql)
sql="update[dnt_statistics]settotalusers=totalusers+1,lastusername=’"&Username&"’,lastuserid=’"&Uid&"’"
setrs=conn.execute(sql)
sql="select*from[dnt_users]whereusername=’"&Username&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=conn.execute(sql)
ifrs.eofthen
Response.Write("<script>alert(’提醒!

用户帐号毛病!’);history.back();</script>")
Response.end
else
ifrs("password")md5(Password)then
Response.Write("<script>alert(’提醒!

用户暗码毛病!’);history.back();</script>")
Response.end
else
DimDES,DESCode
SetDES=Server.CreateObject("DiscuzNT.DES")
DESCode=DES.Encode(""&rs("password")&"","Z143D2VBML")//Z143D2VBML为你的DES加密密钥,请用记事本翻开CONFIG目次里的general.config文件,找到<Passwordkey>Z846D4VVZL</Passwordkey>这行,<Passwordkey>与</Passwordkey>两头的英文就是你的密钥,把密钥修正成你的文件的
SetDES=Nothing
Response.Cookies("dnt")("userid")=rs("uid")
Response.Cookies("dnt")("password")=DESCode
Response.Cookies("dnt")("tpp")=rs("tpp")
Response.Cookies("dnt")("ppp")=rs("ppp")
Response.Cookies("dnt")("pmsound")=rs("pmsound")
Response.Cookies("dnt")("invisible")=rs("invisible")
Response.Cookies("dnt")("referer")="index.aspx"
Response.Cookies("dnt")("sigstatus")=rs("sigstatus")
Response.Cookies("dnt")("expires")=0
Response.Cookies("dnt").Domain=".xxx.com"//修正为你的域名,注重后面带.(点)
Response.Cookies("dnt").Secure=False
endif
endif
rs.close
setrs=nothing
//此处加注册后转向或向别的一个用户表增加同步用户数据,详细你本人看着办
%>



===========================================================================================
编纂页面代码(编纂暗码后无需从头上岸)

<!--#includefile="md5.asp"-->//32为md5加密文件,必定得挪用,该文件各处有,我就不供应了
<%
dimUsername,Password,CheckPassword,Email,Question,Answer,Verify
Username=replace(trim(Request.form("Username")),"’","’’")//用户名
Password=replace(trim(Request.form("Password")),"’","’’")//用户暗码
CheckPassword=replace(trim(Request.form("CheckPassword")),"’","’’")//暗码考证
Question=replace(trim(Request.form("Question")),"’","’’")//暗码成绩
Answer=replace(trim(Request.form("Answer")),"’","’’")//暗码谜底
Expires=replace(trim(Request.form("Expires")),"’","’’")//cookies纪录时长
Verify=replace(trim(Request.form("Verify")),"’","’’")//考证码
//此处加上提交的考证,如xxx不克不及为空等或字段长度等
ifPassword""then
ifPasswordCheckPasswordthen
Response.Write("<script>alert(’提醒!

考证暗码与用户暗码不不异!’);history.back();</script>")
Response.end
endif
Password=MD5(Password)
else
Password=U_Password//U_Password为你的32位MD5加密暗码,在考证时读掏出来用来这里考证
endif
ifAnswerTrue="true"then
ifQuestion0then
Answer=mid(MD5(Answer+MD5(Question)),16,8)
else
Answer=""
endif
else
Answer=U_Secques//U_Secques为你的暗码谜底,在考证时读掏出来用来这里考证
endif
ip=request.servervariables("http_x_forwarded_for")
ifip=""thenip=request.servervariables("remote_addr")
sql="select*from[dnt_users]whereusername=’"&Username&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=Conn.execute(Sql)
IfRs.eofthen
Response.Write("<script>alert(’提醒!

用户帐号毛病!’);history.back();</script>")
Response.end
else
sql="select*from[dnt_users]whereemail=’"&Email&"’andusername’"&Username&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=conn.execute(sql)
ifnotrs.eofthen
response.write("<script>alert(’友谊提醒!

邮箱已被利用!’);history.back();</script>")
response.end
else
sql="update[dnt_users]setpassword=’"&Password&"’,secques=’"&Answer&"’,email=’"&Email&"’whereusername=’"&Username&"’"//为了便利,此处我就不加过滤函数了,如你利用时必定加上,不然被注进
setrs=conn.execute(sql)
SetDES=Server.CreateObject("DiscuzNT.DES")
DESCode=DES.Encode(""&Password&"","Z143D2VBML")//Z143D2VBML为你的DES加密密钥,请用记事本翻开CONFIG目次里的general.config文件,找到<Passwordkey>Z846D4VVZL</Passwordkey>这行,<Passwordkey>与</Passwordkey>两头的英文就是你的密钥,把密钥修正成你的文件的
SetDES=Nothing
Response.Cookies("dnt")("userid")=rs("uid")
Response.Cookies("dnt")("password")=DESCode
Response.Cookies("dnt")("tpp")=rs("tpp")
Response.Cookies("dnt")("ppp")=rs("ppp")
Response.Cookies("dnt")("pmsound")=rs("pmsound")
Response.Cookies("dnt")("invisible")=rs("invisible")
Response.Cookies("dnt")("referer")="index.aspx"
Response.Cookies("dnt")("sigstatus")=rs("sigstatus")
Response.Cookies("dnt")("expires")=0
Response.Cookies("dnt").Domain=".xxxx.com"//修正为你的域名,注重后面带.(点)
Response.Cookies("dnt").Secure=False
endif
endif
rs.close
setrs=nothing
//此处加编纂后转向或向别的一个用户表增加同步用户数据,详细你本人看着办
%>


=============================================================================================
加入考证cookies页面代码

<%
Response.Cookies("dnt")("userid")=""
Response.Cookies("dnt")("password")=""
Response.Cookies("dnt")("tpp")=""
Response.Cookies("dnt")("ppp")=""
Response.Cookies("dnt")("pmsound")=""
Response.Cookies("dnt")("invisible")=""
Response.Cookies("dnt")("referer")=""
Response.Cookies("dnt")("sigstatus")=""
Response.Cookies("dnt")("expires")=""
Response.Cookies("dnt").Expires=""
Response.Cookies("dnt").Domain=".xxx.com"
Response.Cookies("dnt").Secure=False
Response.Write("<script>alert(’提醒!

用户刊出上岸终了!’);self.opener.location.reload();window.close();</script>")
Response.end
%>


==============================================================================================
考证cookies页面代码,这是我为了复杂顺手写的一段考证代码,基础都是迥然不同,详细你依据你的asp程序考证文件来修正
%>
DimDES,DESCode
SetDES=Server.CreateObject("DiscuzNT.DES")
DESCode=DES.Decode(""&request.cookies("dnt")("password")&"","Z143D2VBML")//Z143D2VBML为你的DES加密密钥,请用记事本翻开CONFIG目次里的general.config文件,找到<Passwordkey>Z846D4VVZL</Passwordkey>这行,<Passwordkey>与</Passwordkey>两头的英文就是你的密钥,把密钥修正成你的文件的
SetDES=Nothing
//上面是读取数据库来考证你的cookies是不是准确
dimU_UId,U_UserName,U_Password,U_Secques,U_Email
Sql="selectuid,username,password,secques,emailfrom[dnt_users]whereuid=’"&request.cookies("dnt")("userid")&"’andpassword=’"&DESCode&"’"//为了便利,cookies用户和暗码我就不加过滤函数了,如你利用时必定加上,不然被注进,就过滤些单引号及一些对照敏感的就能够了
SetRs=Conn.execute(Sql)
ifnotrs.eofthen
founduser=true
U_UId=Rs(0)
U_UserName=Rs(1)
U_Password=Rs(2)
U_Secques=Rs(3)
U_Email=Rs(4)
else
founduser=false
endif
rs.close
setrs=nothing
%>
asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?