newuser.cgi

来自「完整的主机服务器, (含代码).程序会监视联结到主机程序上的所有机器.可是设置开」· CGI 代码 · 共 45 行

CGI
45
字号
newstr newname
newstr newpass
newstr newpass2
newstr temp1
newstr temp2

// Check To Make Sure All The Information Was Entered
if (newname$ == '') || (newpass$ == '') || (newpass2$ == '')
	print 'All Data Not Entered'
	end
endif


// Check To Make Sure Both Passwords Match
if (newpass$ != newpass2$)
	print 'Passwords Do Not Match'
	end
endif

// Check To Make Sure The User Doesn't Already Exist
file openin 'login.dtx' 1
again>
fmread 1 temp1$ temp2$
if (temp1$ == newname$)
	print 'User Already Exists'
	file close 1
	end
endif
if (eof(1) == 0)
	goto again
endif

file close 1

file openappend 'login.dtx' 1
temp1$ = newname$ & ',' & newpass$
fwrite 1 temp1$
file close 1

print '<html><title>New User:' & newname$ & ' Created.</title>'
print '<body>'
print '<b>New User ' & newname$ & ' Created.</b><br>'
print '<br><br>'
print '<a href=index.html>Click Here To Return To The Login Page</a>'
print '</body></html>'

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?