地方网

搜索

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

[复制链接]
admin 发表于 2008-8-19 16:51:10 | 显示全部楼层 |阅读模式
软件简介:
% V8 }8 m$ a3 c& Z9 R+ j0 s本系统由W-TS提供。程序全部开源。转载请保留出处。
" v3 C- D' a% O0 e4 Pwww.w-ts.cn
6 M6 I4 P; k; T9 N: }) @# X( h  [QQ:67987059 @& F) \8 g. W# l/ M- k6 Z( m$ B
架设方法:只要将IIS指定到程序目录。inc/conn.asp设置好连接的各项属性即可使用。% }2 _7 r9 V8 ~; U
修改密码。取回密码功能即将提供。
: x& D7 ~  Z, I. y2 q( L9 r9 w0 _6 b) T
更强大的魔域Web管理系统紧张制作中。
4 |% w$ e1 B; Y' L8 E
5 T; o% x+ N+ Y' @2007.10.20
* [; s% H& P% \, Z( E; l! r6 l2 i+ [/ c( \8 k
-----------------------------------------------------------
) _7 X; \! M1 ]2 E6 t) n8 u如果出现6 g. r. A5 @1 v8 k9 y
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
  x: ^& ?  L8 @! V$ f0 I多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。. J4 ]& Y2 s0 e# \6 l
/registersave.asp,行 347 ?# f% J2 d# `  F( P( K, P
情况请将registersave.asp内容替换成以下:0 I+ c1 d, {% c' m) |+ }3 x7 w4 N

! {! [9 x/ M+ Z  D! K- p' N!--#include file=inc/conn.asp--$ ^* T: j  P* \  |, K3 z- i
%  U% L. H) K1 j* `. n
if(request(action)=save) then* O2 N" Z# t, S6 A' D
id = GetPostField(id)
6 v' b8 q9 c) i4 T, J& M1 Q7 ^* j* x oldpass = GetPostField(oldpass)
+ M9 `5 s$ G- }3 U( R* N9 T moldpass = GetPostField(moldpass)
: ^; e1 {# k7 J hash = GETpostfield(hash)5 y! c, i: j7 K# W
CheckCode = GetPostField(CheckCode)
$ q. W* D1 i+ z $ F2 x; m" ^6 P) f& Q9 \, o- i+ ]
if CheckCode  CStr(Session(CheckCode)) then
/ ~& n3 D, o# [; U msg(您填写的验证码与系统产生的不一致,请重新输入)  d. b$ R$ \5 {: p& t
end if
1 d$ j2 e: S  i2 O* I2 |* _4 F
6 n$ O6 ?; u% T! \0 Y/ O( h1 ]8 S' B+ [ if(ChkInvaildWord(id) or ChkInvaildWord(oldpass) or ChkInvaildWord(moldpass)) then$ d* P/ A2 X+ k7 {3 ~( W, |
msg(请不要输入非法字符). G- r& ~8 @8 M* U# Y
end if* w9 p& b, M0 H, `0 {
! X9 G: y/ S) T6 ]- W* G! g2 f
if oldpass  moldpass then3 o! f9 V1 p5 k7 X
msg(两次密码不相同)
  C0 o9 {% ^- E5 b9 C end if( I1 X4 ]5 H& b4 E! W0 ?1 S2 K+ E
set rs=server.createobject(adodb.recordset)
0 \; l% J# ]% i! p sql = select * from account where name = ''( i$ E; K: H; r5 w
rs.open sql,conn,1,1/ {5 z$ B1 D  l8 |6 y! k6 O
If Not(rs.Eof And rs.Bof) Then9 x2 t* B1 ~8 k, j
msg(注册失败,您输入用户名已经被注册,请更换其它用户名): H  D. y- W% l
rs.Close
/ `( v+ |3 }8 j/ M; {; d8 g' d Else '继续注册9 A( F0 h* O& q( g. h
rs.Close* `$ ~4 T7 R# b) {! o" B) q3 b) x
conn.execute(insert into account (name,password,reg_date,vip) values ('','','',0) )& T# [4 A5 [% |" u1 e% l
set rs=nothing4 R2 e* b( f& |" ?9 t0 n5 b
msg(恭喜你,注册成功)
' ?1 l; a4 e* o# e- _+ m end if
4 @& ]% Q9 l2 |! q( o end if
4 p( u6 ]: [! {0 t# Q4 M2 |%$ ?7 Y! P" a& P! ?1 f$ k+ d
下载地址:
2008-8-19 16:51 上传
文件大小:
未知
下载次数:
0
下载权限:
版本vip会员
VIP专享 检测资源
有些游戏资源需要vip下载开通请点击开通vip
回复

使用道具 举报

全部回复0 显示全部楼层

发表回复

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

本版积分规则

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