地方网

搜索

[魔域网站] W-ts抢先提供魔域网站帐号注册系统

[复制链接]
admin 发表于 2008-8-19 16:51:10 | 显示全部楼层 |阅读模式
软件简介:# M9 ]5 J5 o8 p, u; Z4 q- p
本系统由W-TS提供。程序全部开源。转载请保留出处。' a' K; y( f- s* f0 J
www.w-ts.cn
; ~  F* {9 e2 d3 Q, OQQ:67987051 E7 {& a( [3 l" o: ?) W
架设方法:只要将IIS指定到程序目录。inc/conn.asp设置好连接的各项属性即可使用。
% I: T1 h  ~3 p% ~' t' J修改密码。取回密码功能即将提供。4 \6 Y! _: U0 D9 \: C

/ @# m- B( Y' R4 V) u更强大的魔域Web管理系统紧张制作中。) A# J7 u7 s+ ^0 U$ i

  [  x1 {3 Q9 ?% U7 u6 u+ C" M, b2007.10.20
$ w0 }. ?6 P- ~# C' k5 u  @* E$ C% u0 o" Y2 b7 j+ v' I2 T
-----------------------------------------------------------4 e+ d( U# L- b4 ]% J
如果出现
0 `4 M( [6 X* K( _& Z" w! MMicrosoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
6 S$ J1 Z% M5 L1 |; G. _' ~5 C# \多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。% ^4 t9 E- c& f
/registersave.asp,行 34& t7 U/ e4 L; b/ Y- A# r' x
情况请将registersave.asp内容替换成以下:" W! }( O9 t3 a* t5 s8 `3 E9 x
8 J# m& D$ T6 G. _
!--#include file=inc/conn.asp--
+ i# X0 D7 M) t6 _9 R$ b%! n' r: m: G' w! R% N5 s. J
if(request(action)=save) then1 A6 j1 L9 ?. p6 @. p( }
id = GetPostField(id)7 s7 a9 B9 m3 r& J, U" a1 z
oldpass = GetPostField(oldpass)' d$ x5 @7 H) R; V& F8 \. T
moldpass = GetPostField(moldpass)5 q2 i8 a# L4 r. I- K( }
hash = GETpostfield(hash)% g/ P* S! c% ?) {! {& G0 c4 L) X/ y
CheckCode = GetPostField(CheckCode)* _: m) [6 t2 M& L* Q$ D/ J

) K9 l" e5 J8 X# aif CheckCode  CStr(Session(CheckCode)) then
1 K/ |4 X0 P1 G1 P msg(您填写的验证码与系统产生的不一致,请重新输入)9 Q- H! D+ k5 I  H9 S
end if. }- |, |) }1 |0 {) N5 D' b

' D4 t4 \# N5 U9 o2 Z8 w if(ChkInvaildWord(id) or ChkInvaildWord(oldpass) or ChkInvaildWord(moldpass)) then7 @- X$ m$ l' A: W2 [5 [3 Z
msg(请不要输入非法字符)/ i& M( t" R8 \3 P- \: r. h( M5 I7 P
end if9 _$ l: p' e7 y1 U; |* g
1 _, Z( Y( F0 |* z- `, W& y7 X+ h
if oldpass  moldpass then
- ~- \" J3 D, Z8 `  a" ?* W msg(两次密码不相同)+ m/ R$ b) z7 x1 B) d4 r7 L
end if
8 O# A9 {. y( [2 } set rs=server.createobject(adodb.recordset)
2 m5 T# K" G# G! N: @ sql = select * from account where name = ''
1 `) I2 F# R( k- S7 O rs.open sql,conn,1,1# L6 W0 w- W; L% W) W. V4 ^% m, Z
If Not(rs.Eof And rs.Bof) Then0 K& B, [9 U* N$ [2 C% m
msg(注册失败,您输入用户名已经被注册,请更换其它用户名)
: Y; p: A& e5 p  u8 u& Z+ E+ W rs.Close' k% g8 d( m2 J. ^: ?5 v. q
Else '继续注册& {. o8 W5 \! `5 {
rs.Close. S/ T& |$ w2 l. ?$ O0 W
conn.execute(insert into account (name,password,reg_date,vip) values ('','','',0) )3 a+ k# D3 x" q
set rs=nothing
% p. _, F* L' |# q, G* r msg(恭喜你,注册成功)% Z" e% V5 j3 o/ G  \" u
end if. C: J8 Y: c. ?# W7 J  b& ]- Z7 c
end if0 V5 M* m/ }7 ~4 b
%
) b! a8 o0 [0 z! J; I( w下载地址:
2008-8-19 16:51 上传
下载权限:
版本vip会员
本地下载 检测资源   提取码: 需要终身vip或更高权限
有些游戏资源需要vip下载开通请点击开通vip
回复

使用道具 举报

全部回复0 显示全部楼层

发表回复

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

联系客服 关注微信 下载APP 返回顶部 返回列表