发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

在线实时开通WEB及FTP源程序

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

程序利用FSO+SERV-U（2.x版本）实现：1、注册文件index.htmhtmlheadtitle宁波科宇网——个人网页申请/titlemeta http-equiv="Content-Type" content="text/html; charset=gb2312"script language="Javascript"function CheckIfEnglish( String ){ var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";var i;var c;if(String.charAt( 0 )==''-'')return false;if( String.charAt( String.length - 1 ) == ''-'' )return false;for( i = 0; i  String.length; i ++ ){c = String.charAt( i );if (Letters.indexOf( c )  0)return false;}return true;}
function checkSubmit() {var EmailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;if (document.form.name.value == "") {alert("请输入您要注册的用户名！");document.form.name.focus();return false;}
if (!CheckIfEnglish(document.form.name.value )) {alert("用户名不能输入中文及非法字符！");document.form.name.focus();return false;}
if ((document.form.pass.value == "")(document.form.rpass.value == "")) {alert("密码不能为空！");document.form.pass.focus();document.form.rpass.focus();return false;}
if ((document.form.pass.value)!=(document.form.rpass.value)) {alert (''二次密码输入不一样！'');document.form.pass.focus();document.form.rpass.focus();return false;}
if (document.form.email.value == "") {alert("请输入您的Email！");document.form.email.focus();return false;}
if ((!EmailReg.test(document.form.email.value))(document.form.email.value!='''')) {alert (''Email的格式不正确！'');document.form.email.focus();return false;}
return true;}/script
script language="JavaScript"!--function MM_reloadPage(init) { //reloads the window if Nav4 resizedif (init==true) with (navigator) {if ((appName=="Netscape")(parseInt(appVersion)==4)) {document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);// --/script/headbody bgcolor="#FFFFFF" text="#000000" background="crystal.jpg"p align="center"　/pp align="center"bfont size="6" color="#333333"宁波科宇网——个人网页申请/font/b/pp align="center"/ptable width="65%" border="0" align="center"trtdform name="form" method="post" action="page.ASP"pb用户名称：/b input type="text" name="name" size="10" class="form" * 
注意：用户名只能由英文字母（a-z、A-Z），数字（0-9）构成，不能有空格。
b密　　码：/b input type="password" name="pass" size="10" class="form" */p pb确认密码：/b input type="password" name="rpass" size="10" class="form" *（确认上面的密码）/p pb您的MAIL：/b input type="text" name="email" size="20" class="form"*(请正确填写) /p p input type="submit" name="Submit" value="提交" onClick ="java script:return checkSubmit()" input type="reset" name="Submit2" value="重写" 
其中*号项目为必填项目！/p /form /td /tr /table p align="center"font color="#FF0000"注意：本空间可以安装BBS论坛，严格禁止江湖、聊天室等严重占用资源的程序运行。
一经发现，删除全部程序及FTP帐号，并不于通知！/font/p p align="center"　/p p align="center"－＝＝a href="mailto:support@4email.vicp.net"宁波科宇网/a＝＝－
CopyRight By KeYu Computer WorkRoom 2001-2002/p/body /html 
2、后台控制文件page.ASPhtmlheadtitleUntitled Document/titlemeta http-equiv="Content-Type" content="text/html; charset=gb2312"/headbody bgcolor="#FFFFFF" text="#000000"%vname=request("name")vpass=request("pass")vrpass=request("rpass")vemail=request("email")%%if request.form("name")="" then response.write "错误提示:请输入用户名!"response.endend ifif request.form("pass")="" then response.write "错误提示:请输入口令!"response.endend ifif request.form("pass")request.form("rpass") then response.write "错误提示:两次口令不相符!"response.endend ifif request.form("email")="" then response.write "错误提示:必须输入你的正确EMAIL!"response.endend if%%set myconn=server.createobject("ADODB.CONNECTION")dbpath=server.mappath("db.mdb")myconn.open "driver={Microsoft access driver (*.mdb)};dbq="dbpathSQL="select * from hostname where 用户名=''"vname"''"set list=myconn.execute(sql)%% if list.eof then%%set rs=server.createobject("ADODB.RecordSet")rs.Open "hostname", myconn, adOpenDynamic, 3rs.addnewrs("用户名")=vnamers("密码")=vpassrs("邮箱")=vemailrs.updaters.close
Set myfileobject=server.createobject("scripting.filesystemobject")myfileobject.createfolder("e:\club\"vname)set afile=myfileobject.getfile("e:\club\person.htm")afile.copy "e:\club\"vname"\index.htm"
set afile=myfileobject.getfile("e:\club\line113.gif")afile.copy "e:\club\"vname"\line113.gif"
set afile=myfileobject.getfile("e:\club\bg11.gif")afile.copy "e:\club\"vname"\bg11.gif"
set afile=myfileobject.getfile("e:\club\c24.gif")afile.copy "e:\club\"vname"\c24.gif"
set mytextfile=myfileobject.opentextfile("C:\Program Files\serv-u\Serv-u.ini",8)mytextfile.writeline("[USER="vname"]")mytextfile.writeline("password="vpass)mytextfile.writeline("HomeDir=e:\club\"vname)mytextfile.writeline("RelPaths=YES")mytextfile.writeline("ChangePassword=YES")mytextfile.writeline("SpeedLimit=20480")mytextfile.writeline("QuotaEnable=YES")mytextfile.writeline("QuotaMaxCurrent=20971520,0")mytextfile.writeline("TimeOut=600")mytextfile.writeline("Access1=e:\club\"vname",RWAMCDLP")Response.Redirect "welcome.htm"response.end%%else% center对不起，您的用户名%=vname%已被他人所用，请您换一个用户名申请Pa href="./"返回申请页面/a/p/center %end if%/body/html
3、注册成功页面welcome.htmhtmlheadtitleOK/titlemeta http-equiv="Content-Type" content="text/html; charset=gb2312"/head
body bgcolor="#FFFFFF" text="#000000" background="bg14.jpg"p align="center"bfont color="#FF0000" size="7"恭喜您/font/b/pp align="center"img border="0" src="../../line761.gif" width="560" height="18"/pp align="center"/pp align="center"您已成功地申请了自己的个人主页/pp/ptable width="451" border="0" align="center"tr td width="443"b请您阅读以下注意事项：/b/td/trtr td width="443"1、您的主页空间是20M，支持ASP，暂不支持CGI，请您及时上传您的主页，超过三周不上传者，我们将删除您的帐号！/td/trtr td width="443"2、本站支持FTP登录、支持断点续传，可以用各种FTP工具来上传您的文件。/td/trtrtd width="443"3、本站个人主页的FTP地址为bfont color="#FF0000"cn4e.vicp.net/font/b/td/trtrtd width="443"4、访问路径是bfont color="#FF0000"http://cn4e.vicp.net/您的用户名/font/b/td/trtrtd width="443"5、如有任何疑问，请致信a href="support@4email.vicp.netmailto:support@4email.vicp.net"support@4email.vicp.net/a/td/tr/tablep align="center"a href="http://www.kydn.com"宁波科宇网/a
p align="center"a href="/"返回首页/a/pp align="center"img src="../../line738.gif" width="500" height="24"/pp align="center"/p/body/html
4、默认首页文件person.htmhtmlheadtitle个人网站/titlemeta http-equiv="Content-Type" content="text/html; charset=gb2312"/head
body bgcolor="#FFFFFF" text="#000000" background="bg11.gif"p align="center"　/pp align="center"bfont size="6"个人网页/font/b/pp align="center"img border="0" src="../../c24.gif" width="96" height="66"/pp align="center"正在施工中。。。。。/pp align="center"img border="0" src="../../line113.gif" width="420" height="11"/pp align="center"－＝＝a href="http://www.kydn.com"宁波科宇网/a＝＝－
CopyRight By KeYu Computer WorkRoom 2001-2002/p/body/html
5、完整图片、数据库、ASP、HTM文件包下载：http://cn4e.vicp.net/bbs/uploadImag...12195174006.zip
6、serv-u 2.5k 免安装已注册版下载：http://club.yydns.com/soft/ServU25k.zip
7、注意：serv-u默认安装位置为C:\Program Files\serv-u，虚拟站点目录位置为：e:/club，请根据各自情况进行修改。<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10001881" target="_blank">https://dangbai.cn/Article.asp?ID=10001881</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗