|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合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做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|