ASP编程:中文假造域名完成(2) (情况:中文NT)
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件中文中文假造域名完成(2)(情况:中文NT)关头词:ASP
MODIFY。ASP
*******************************
<%@LANGUAGE="VBSCRIPT"%>
<!--#includefile="dbdb/connmm.inc"-->
<html>
<head>
<title>domainforword</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styletype="text/css">
<!--
.MMS{font-size:11pt;text-decoration:none}
.MMS1{font-size:10pt;text-decoration:none}
-->
</style></head>
<bodytopmargin="10"leftmargin="0">
<divalign="center">
<%setrs=server.createobject("adodb.recordset")
sql="select*frominfowhereuser="&request("domain2")&"andpassword="&request("pass2")&""
rs.opensql,conn,1,1
ifrs.bofandrs.eofthen
response.write"<br><br><br><fontcolor=black>此域名(http://msstudio.net/"&request("domain2")&")不存在或暗码毛病!</font><br><br><br>"
rs.close
else
ifrequest("newpass2")=request("newpassagain2")then
ifrequest("newpass2")=""andrequest("email2")=""then
conn.execute("updateinfosettarget="&request("target2")&"whereuser="&request("domain2")&"")
endif
ifrequest("newpass2")=""andrequest("email2")""then
conn.execute("updateinfosettarget="&request("target2")&",email="&request("email2")&"whereuser="&request("domain2")&"")
endif
ifrequest("newpass2")""andrequest("email2")""then
conn.execute("updateinfosettarget="&request("target2")&",email="&request("email2")&",password="&request("newpass2")&"whereuser="&request("domain2")&"")
endif
ifrequest("newpass2")""andrequest("email2")=""then
conn.execute("updateinfosettarget="&request("target2")&",password="&request("newpass2")&"whereuser="&request("domain2")&"")
endif
foldername="d:domain"&request("domain2")
Setfs=CreateObject("Scripting.FileSystemObject")
fs.CreateFolder(foldername)
setfs=nothing
m_mailinfo="<html><head>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<title>domainforword</title>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<metahttp-equiv=""Content-Type""content=""text/html;charset=gb2312"">"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<metahttp-equiv=""refresh""content=""0;URL=http://"+request("target2")+""">"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<scriptlanguage=""JavaScript""src=""../mss.js""></script></head>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<bodybgcolor=""#FFFFFF"">loading...</body></html>"
whichfile="d:domain"&request("domain2")&"default.htm"
Setfs=CreateObject("Scripting.FileSystemObject")
Setthisfile=fs.createTextFile(whichfile,True)
thisfile.Writem_mailinfo
thisfile.Close
response.write"<br><br><br><fontcolor=black>祝贺!域名(<ahref=""http://msstudio.net/"&request("domain2")&""">http://msstudio.net/"&request("domain2")&"</a>)修正乐成!</font><br><br><br>"
else
response.write"<br><br><br><fontcolor=black>暗码毛病!</font><br><br><br>"
endif
endif
%>
</div>
</body>
</html>
ADD。ASP
*****************************************************
<%@LANGUAGE="VBSCRIPT"%>
<!--#includefile="dbdb/connmm.inc"-->
<html>
<head>
<title>domainforword</title>
<metahttp-equiv</p>楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。 ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。 封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。 完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。 用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
页:
[1]