软件简介:# 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下载地址:
|