⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newuser.cgi

📁 完整的主机服务器, (含代码).程序会监视联结到主机程序上的所有机器.可是设置开启端口,最多用户..非常完整.!
💻 CGI
字号:
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 + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -