软件简介:# _$ ~3 b; W' Y7 \2 Q j7 U( l1 q
本系统由W-TS提供。程序全部开源。转载请保留出处。
$ Y9 r7 r8 i# v* x* hwww.w-ts.cn
% S5 b/ X# e, GQQ:6798705
6 e) w1 a% z+ I6 z" B/ s架设方法:只要将IIS指定到程序目录。inc/conn.asp设置好连接的各项属性即可使用。
9 ~; p8 |( L; [# B6 \+ {, r修改密码。取回密码功能即将提供。
5 j: p& e* T; W2 {- s! r7 V$ m0 p! }# y$ |! I
更强大的魔域Web管理系统紧张制作中。
- m8 S; F! ]9 Z& Z& O8 A
k7 Z! w6 U" f( ~2007.10.20
' a# K% ]6 [4 ^! s+ ~, v' B; Q O3 C% @$ {
-----------------------------------------------------------
. E8 T d9 t3 g3 q; {, |- ?如果出现
o u _! e5 a9 F0 c$ IMicrosoft OLE DB Provider for ODBC Drivers 错误 '80040e21'. y6 q8 X( N' I' _: c+ @
多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。' u! J) A @( X1 b. S3 g: w
/registersave.asp,行 34
; b4 ?. O1 r+ h9 Z3 S4 W( Z情况请将registersave.asp内容替换成以下: V- v* b- f5 r" H! e# T
: d& C# ?8 Y, C/ n) v y C!--#include file=inc/conn.asp--
6 e! u$ h* g/ r j: y%
) K# E# d5 v9 j. O: O if(request(action)=save) then
+ ^" ~: x2 m& K0 P' B5 i: |, k id = GetPostField(id)
* v$ z3 [5 ] K) x/ j9 Q oldpass = GetPostField(oldpass)
( {$ T) G9 d7 A5 ^( p W moldpass = GetPostField(moldpass)
- S3 H# X' Y+ p/ g' {/ ?5 L hash = GETpostfield(hash)
; Z! P- V0 M( G: _( _ CheckCode = GetPostField(CheckCode)
- V, K4 c, h+ u
# |' s T. l# }# C' ~9 w6 [if CheckCode CStr(Session(CheckCode)) then
' v x/ z9 K; G% c) f6 s# u1 _ msg(您填写的验证码与系统产生的不一致,请重新输入)
1 q0 ~2 c: E6 v T6 T; dend if d5 M* a( @ Y; v
: P' j2 d/ t1 d6 J5 M8 i& {* L6 `/ m, h if(ChkInvaildWord(id) or ChkInvaildWord(oldpass) or ChkInvaildWord(moldpass)) then2 w9 \+ Q. T4 K/ X5 _ l
msg(请不要输入非法字符) F& m- C6 {. w
end if& I; `% Q5 R9 F
5 G- D7 t! _; N6 Q) V8 X
if oldpass moldpass then d* D" ^7 @+ E. |
msg(两次密码不相同). r% n6 D* G" l
end if, W" a1 F3 F4 Y# b- |! K- s
set rs=server.createobject(adodb.recordset)& v& V. S9 k% G. _% F
sql = select * from account where name = ''% z9 D0 |# {0 t# k9 `, N, d
rs.open sql,conn,1,1
( C9 q5 _$ e- W0 B If Not(rs.Eof And rs.Bof) Then
2 M2 D" N2 D$ C2 J: c1 F4 k msg(注册失败,您输入用户名已经被注册,请更换其它用户名)
+ |+ A& ?$ A' G7 @5 w0 C rs.Close
1 h" F4 M8 I5 U9 a. t Else '继续注册1 v6 }6 T5 [& F$ ^4 n3 Y
rs.Close4 s E- [6 \: I, s$ W6 d
conn.execute(insert into account (name,password,reg_date,vip) values ('','','',0) )
4 z& n c1 ^9 H' u2 x# |! z set rs=nothing' R/ U! a2 Y* N2 f4 o
msg(恭喜你,注册成功)
; |5 W8 G" H. g# B3 m8 @4 c- t% f$ l end if; W H# B4 Q3 T* e) _- f3 m
end if
. W6 C5 V. _8 s/ b* L% W%
z/ N/ o$ a; }2 @5 Q下载地址:
|