📄 reg.cgi

📁 信息管理系统

💻 CGI

字号:

#!/perl/bin/perl
require "./setup.pl";
&getform;
$username=$in{'username'};
$userpassword = $in{'userpassword'};
$userpasswd1=$in{'userpasswd1'};
$useremail=$in{'useremail'};
$userphone=$in{'userphone'};
$useraddress=$in{'useraddress'};
$userturename=$in{'userturename'};
$userlike=$in{'userlike'};
$userfrom=$in{'userfrom'};
$useroicq=$in{'useroicq'};
$usersex=$in{'usersex'};
&check;
$usertime=time();##记录注册时间
open (F,">$cgipath/data/$username.dat");
print F "$userturename=$userpassword=$useremail=$userphone=$useraddress=$userlike=$userfrom=$useroicq=$usersex=$usertime";
close (F);
print "Content-type: text/html\n\n";
print <<HTML;
<html>
<head>
<title>REGISTER</title>
</head>
<body bgcolor="#ffffff" text="#000000">
<h1 align="center">REGISTER succeed</h1>
<hr>
<p align="center">【<a href="gbook.cgi">RETURN</a>】 </p><br>
</body>
</html>
HTML

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -