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

豹子

版主

Rank: 7 Rank: 7 Rank: 7

1^# 大中小发表于 2007-6-23 10:30 只看该作者

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

程序利用FSO SERV-U（2.x版本）实现：- ]# {2 p" p' y' e6 ]
1、注册文件index.htm9 |1 u& ^1 h; {' J2 Q
html6 [8 v5 w* v! K* L. T
head
title宁波科宇网——个人网页申请/title
meta http-equiv="Content-Type" content="text/html; charset=gb2312"' P& ]: s% u1 n- j
script language="Javascript"& x/ Y1 F/ T. a2 j, V6 W& Z
function CheckIfEnglish( String )
{
var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";
var i;# n" U' ?/ G# s* Q& w. ?; Z2 L* w
var c;" b) R( N" n- s2 |- l
if(String.charAt( 0 )==''-'')2 s, C& V6 x" s! X8 y8 {& M4 N
return false;0 S1 M2 t0 [4 s  |5 A) S
if( String.charAt( String.length - 1 ) == ''-'' )7 X/ @- Z: z5 b" R5 Y6 s! D
return false;, ^& H0 Z, B" h/ [
for( i = 0; i  String.length; i )  Y/ w9 |) X# G9 A/ C
{8 V9 U- m- H/ [4 ^) }0 a0 U( @
c = String.charAt( i );1 U1 n, Q# Z' a6 S& J7 v
if (Letters.indexOf( c )  0)1 |9 C3 J( ^$ ?- m
return false;
}5 x/ E3 o: w% M. |
return true;0 w+ H( g0 @  O; D2 }) `7 d& t
}
  c: L0 {1 i* H" Q& B
  7 v& o, b+ O  g/ N
% T! ]4 H, ~8 U+ k( U9 w
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;1 Y8 Z8 T& y- B9 Q
}
6 g; C- ^4 r) R! B
if (!CheckIfEnglish(document.form.name.value )) {2 ]' }3 f. F# M
alert("用户名不能输入中文及非法字符！");
document.form.name.focus();6 o, V0 n7 k$ @$ d
return false;- d* P5 _& v! I2 }
}
6 K" `( w/ B2 a) @+ q7 Z% j1 ~2 ]" W
if ((document.form.pass.value == "")(document.form.rpass.value == "")) {
alert("密码不能为空！");( S& ^$ Y% H$ _" O& o1 B$ g1 [
document.form.pass.focus();+ \$ o. L. i' l) H6 j5 T  a
document.form.rpass.focus();% W1 |) Q" t% Y7 {6 h1 X/ o
return false;, @# s: `: N+ @% v# k* F; A$ M
}

if ((document.form.pass.value)!=(document.form.rpass.value)) {
alert (''二次密码输入不一样！'');
document.form.pass.focus();( b6 J! b1 t% f3 Y. N8 {
document.form.rpass.focus();& \. B& q9 J; g9 ^  O& a, Q8 l4 z
return false;
}  . ?6 ]% Z8 I- R9 v6 h5 m
3 {1 H6 R- O; d  E6 w% v
if (document.form.email.value == "") {0 g6 V( V+ C. f2 c, b" r
alert("请输入您的Email！");
document.form.email.focus();
return false;
}  ! Z) E: V! n+ v- g1 H
( @" a, S, H8 J+ p; ]
if ((!EmailReg.test(document.form.email.value))(document.form.email.value!='''')) {: N! X  `# u# z4 r& K
alert (''Email的格式不正确！'');
document.form.email.focus();. ~1 R! `4 H9 F" e' t) v" C' W
return false;
}
5 v; b" Y! s+ {7 D6 V6 `  g
return true;
}
/script
: z% b4 E* m6 [' p% W
script language="JavaScript"
!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (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();" z) x% d5 M9 Q& r9 @: N
}2 M+ c, D2 E, P' ^
MM_reloadPage(true);
// --
/script0 c* y7 p% S" l( }( o# ]5 D% H7 g
/head; C  p8 i* }* T5 Z
body bgcolor="#FFFFFF" text="#000000" background="crystal.jpg"+ D! l: H) S* c  A
p align="center"　/p
p align="center"bfont size="6" color="#333333"宁波科宇网——个人网页申请/font/b/p
p align="center"/p
table width="65%" border="0" align="center"4 y5 Y  q+ `  V% a( K6 |9 ~9 j( z
tr6 @1 S, S, t* `8 }0 j: i8 c/ J
td
form name="form" method="post" action="page.asp"3 L. @4 a  P5 ]% Z6 R
pb用户名称：/b ( k+ |" l# B  \& R; l; X3 ?
input type="text" name="name" size="10" class="form" 6 n1 Y5 D6 m8 ~
*

注意：用户名只能由英文字母（a-z、A-Z），数字（0-9）构成，不能有空格。  % J( Y. S7 B+ @! }

b密　　码：/b ( H1 i( l6 R* y' r
input type="password" name="pass" size="10" class="form"
*/p - M9 B5 U& \' d# t* {
pb确认密码：/b " ^0 @5 Z3 j7 J" x
input type="password" name="rpass" size="10" class="form"
*（确认上面的密码）/p : T" T# w# E  a1 A; k( s" t
pb您的MAIL：/b
input type="text" name="email" size="20" class="form"*(请正确填写) ' ^2 H& Z1 W/ i8 h' d
/p
p
input type="submit" name="Submit" value="提交" onClick ="java script:return checkSubmit()"
input type="reset" name="Submit2" value="重写" 2 T- T" o, n) }  E  |
( h, c+ g5 g  ]- j# l
* J" O7 C7 w! t( L. f! M! t4 C
其中*号项目为必填项目！/p
/form
/td : {. I3 ?6 y( A/ [$ x4 y
/tr
/table : C( {& R& y+ ]
p align="center"font color="#FF0000"注意：本空间可以安装BBS论坛，严格禁止江湖、聊天室等严重占用资源的程序运行。

一经发现，删除全部程序及FTP帐号，并不于通知！/font/p + D# ?- i3 i6 j
p align="center"　/p # t/ E0 U8 c, ?+ r) {0 n/ d
p align="center"－＝＝a href="mailto:support@4email.vicp.net"宁波科宇网/a＝＝－  & R. D8 r' P% p( W

CopyRight By KeYu Computer WorkRoom 2001-2002/p
/body
/html # I- A4 l0 y- Y% ?  j) W
  E8 F4 a1 j8 [' U9 a
2、后台控制文件page.asp2 M+ h6 V$ h, }& u% d( B% ^8 s
html% \: S; P6 `2 e. _
head6 Z1 M& w! p; X% x6 I, V
titleUntitled Document/title
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
/head9 S1 v) b; {" A, h) ~( Q
body bgcolor="#FFFFFF" text="#000000"
%vname=request("name")7 L* i+ C, V, Y3 r
vpass=request("pass")/ u& l; P: f* N+ c0 V
vrpass=request("rpass")
vemail=request("email")% h0 O" `* R$ k4 g  m! Z
%' ~2 s: v. d8 [1 f% _
%
if request.form("name")="" then ' C& P9 h: A! t0 ^  m
response.write "错误提示:请输入用户名!"
response.end. B1 \1 G( S: K' e1 \
end if. m8 b; N! r$ s4 G) u  B
if request.form("pass")="" then
response.write "错误提示:请输入口令!"
response.end
end if
if request.form("pass")request.form("rpass") then
response.write "错误提示:两次口令不相符!"3 e0 F+ n, R9 L0 n- t
response.end4 m  j( Z9 i/ k6 i
end if7 E1 A2 ~1 M$ N7 ]: G4 e
if request.form("email")="" then : R# ?6 p7 S8 H4 a
response.write "错误提示:必须输入你的正确EMAIL!"0 n% R. n. J& Z& k$ A
response.end
end if
%6 t" Z* [; ?6 r, I! Y
%set myconn=server.createobject("ADODB.CONNECTION")
dbpath=server.mappath("db.mdb")% G" O4 D! Q% y) S, }5 B& x( X: p6 q1 [
myconn.open "driver={Microsoft access driver (*.mdb)};dbq="dbpath6 _8 _4 h3 N( ?0 K" j% f& z8 H
SQL="select * from hostname where 用户名=''"vname"''") E/ f, I9 x3 N1 L5 V
set list=myconn.execute(sql)
%
% if list.eof then%
%
set rs=server.createobject("ADODB.RecordSet")8 o1 G" M# x) _$ B# P5 S; j
rs.Open "hostname", myconn, adOpenDynamic, 3
rs.addnew4 D# L2 X% ?/ F" b" T3 g+ P8 _" _4 d
rs("用户名")=vname2 K  h! U. ^" ?8 R! c4 P
rs("密码")=vpass
rs("邮箱")=vemail. f8 M2 Z8 h$ @) t0 a+ M8 N
rs.update) j( l: n5 r4 Q/ u( o6 T( Q6 ^
rs.close  . C# Z( L( }- |
) `' J$ V: r% p% Q; x8 l
Set myfileobject=server.createobject("scripting.filesystemobject")$ O7 w6 O/ G8 }
myfileobject.createfolder("e:\club\"vname)
set afile=myfileobject.getfile("e:\club\person.htm"). J% g4 X% B/ o9 P! }% \. M+ Q& y) \5 q
afile.copy "e:\club\"vname"\index.htm"
" a5 _0 ~* }! F6 P
set afile=myfileobject.getfile("e:\club\line113.gif")6 h! _* n. E/ d8 }% E
afile.copy "e:\club\"vname"\line113.gif"
3 F- I2 }' \! C% w: k9 M
set afile=myfileobject.getfile("e:\club\bg11.gif")) W2 H# j- T% x+ ?+ w! _$ \
afile.copy "e:\club\"vname"\bg11.gif"  6 n/ g/ N. j0 {8 H9 h& W
4 L  a8 x8 U0 a# _/ T# |& z
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)9 ?3 F8 ]5 ?) F, W" t) S
mytextfile.writeline("RelPaths=YES")
mytextfile.writeline("ChangePassword=YES")
mytextfile.writeline("SpeedLimit=20480")
mytextfile.writeline("QuotaEnable=YES")& X. ?4 ^: R4 g
mytextfile.writeline("QuotaMaxCurrent=20971520,0")
mytextfile.writeline("TimeOut=600")" G4 ?) a; M$ t2 j( |0 |
mytextfile.writeline("Access1=e:\club\"vname",RWAMCDLP")( e7 T% O- s, n# |" F
Response.Redirect "welcome.htm"; d& G# z# V5 w+ {% L" U
response.end+ c# Z3 W+ Q$ `  U# y- R
%6 c. W- t* }  H  P. G( O
%else%
center对不起，您的用户名%=vname%已被他人所用，请您换一个用户名申请Pa href="./"返回申请页面/a/p/center - Z6 G$ t7 c: j8 w
%end if%' b1 L2 o9 h5 ?& p- u- x1 `9 ]1 R
/body
/html
, n; @1 j% X; n2 v
3、注册成功页面welcome.htm
html' A6 F* {' n  b- D! k
head
titleOK/title) P' E& @# c9 c; `  b: r3 D
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
/head
+ K4 Y) x/ T" d8 L4 y
body bgcolor="#FFFFFF" text="#000000" background="bg14.jpg"+ M2 Q* l( y( y7 N. N% c# X( C
p align="center"bfont color="#FF0000" size="7"恭喜您/font/b/p
p align="center"img border="0" src="line761.gif" width="560" height="18"/p- ~4 ?' V" E, g) _) T
p align="center"/p3 F1 y5 {* A  l1 D; N, }
p align="center"您已成功地申请了自己的个人主页/p4 p( m- u2 u7 D7 j' p: r9 i) u
p/ptable width="451" border="0" align="center"
tr 4 e/ |) i* e- v" Q. S" i2 _
td width="443"b请您阅读以下注意事项：/b/td& L# C& J5 o+ r6 N5 v" }
/tr
tr 1 }7 w5 E9 J, z
td width="443"1、您的主页空间是20M，支持ASP，暂不支持CGI，请您及时上传您的主页，超过三周不上传者，我们将删除您的帐号！/td
/tr. g' x  S2 b5 K
tr
td width="443"2、本站支持FTP登录、支持断点续传，可以用各种FTP工具来上传您的文件。/td
/tr" U( d5 x# C( a/ q6 }2 o
tr8 K8 b  h, T) q5 j# b
td width="443"3、本站个人主页的FTP地址为bfont color="#FF0000"cn4e.vicp.net/font/b/td: j: t& O% x5 E1 _5 z  l+ a* S. ~
/tr
tr* t2 R8 H/ r) f
td width="443"4、访问路径是bfont color="#FF0000"http://cn4e.vicp.net/您的用户名/font/b/td
/tr* J( ]. J  d3 s  y4 N+ x9 }
tr$ m- J, r' l6 }7 F( z
td width="443"5、如有任何疑问，请致信a href="mailto:support@4email.vicp.net"support@4email.vicp.net/a/td1 c+ G- L1 O& [- r
/tr
/table5 j$ H7 A4 ]& h- b/ r
p align="center"a href="http://www.kydn.com"宁波科宇网/a
, J) `8 m+ u/ n: S
p align="center"a href="/"返回首页/a/p
p align="center"img src="line738.gif" width="500" height="24"/p
p align="center"/p
/body5 g8 R& E' Z- t8 h5 t8 e2 P- l7 {
/html

4、默认首页文件person.htm' ^+ T. H1 J4 Q( ]2 Y
html
head
title个人网站/title# L! O/ k& y" g+ l
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
/head

body bgcolor="#FFFFFF" text="#000000" background="bg11.gif"1 K* X- k3 s7 L. {# U0 @  [
p align="center"　/p0 r$ \8 ~0 W. \
p align="center"bfont size="6"个人网页/font/b/p
p align="center"img border="0" src="c24.gif" width="96" height="66"/p
p align="center"正在施工中。。。。。/p) z$ y1 j: A, m/ D
p align="center"img border="0" src="line113.gif" width="420" height="11"/p' y5 J- u  q  T
p align="center"－＝＝a href="http://www.kydn.com"宁波科宇网/a＝＝－  , z& `0 N) t4 A0 L8 c+ G

CopyRight By KeYu Computer WorkRoom 2001-2002/p0 D8 R: h" b, Y- F  c
/body9 a+ A6 J- h1 Z& _2 ~
/html
9 {( \0 l/ @' P8 w
5、完整图片、数据库、ASP、HTM文件包下载：
http://cn4e.vicp.net/bbs/uploadImag...12195174006.zip  & q: L, O5 ?& ]+ C" i0 d9 a; {2 E

6、serv-u 2.5k 免安装已注册版下载：
http://club.yydns.com/soft/ServU25k.zip
' ], \6 j+ z* z" q- d
7、注意：serv-u默认安装位置为C:\Program Files\serv-u，虚拟站点目录位置为：e:/club，请根据各自情况进行修改。  * G/ t; e6 `9 k: H$ k* p

8、演示：http://cn4e.vicp.net/host

点击图标进入精品网摘收藏欢迎大家加入网络收藏夹

TOP

‹‹ 上一主题 | 下一主题 ››