电信主站 网通分站
购买流程 付款方式 常见问题 在线提问 续租服务 购物车
用户名: 密 码: 忘记密码?
首 页
域名注册
虚拟主机
双线主机
服务器租用
VPS主机
企业邮局
代理专区
客服中心
虚拟主机行业资讯 虚拟主机评测对比 互联网最新动态 技术学院 站长资讯 在线教程 网站运营
搜索优化 服务器 网络编程 图形图象 站长之家 网页制作 操作系统
冲浪宝典 软件教学 视频通信 办公软件 邮件系统 网络安全 认证考试
您当前位置:西部数码->资讯中心-> 在线教程-> CGI
例子(请多多指教)-CGI教程,CGI文档
作者:网友供稿 点击:21
  西部数码-全国虚拟主机10强!20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!虚拟主机可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!
文章页数:[1] 
#!/usr/bin/perl -w
让用户输入用户名和密码

use strict;
use cgi;

#检查用户名和密码开始
my $mycgi=new cgi;

print <<headpart;
content-type:text/html

<html><head><title>test it :)</title>
<meta http-equiv=content-type content=text/html; charset=gb2312>
<script language="javascript">
<!--
var never = new date()
never.settime(never.gettime() + 2000*24*60*60*1000);

function setcookie(name, value)
{
    var expstring = "; expires=" + never.togmtstring();
    document.cookie = name + "=" + escape(value) + expstring;
}

// returns value of cookie or null if cookie does not exist
function getcookie(name)
{
    var result = null;
    var mycookie = " " + document.cookie + ";";
    var searchname = " " + name + "=";
    var startofcookie = mycookie.indexof(searchname);
    var endofcookie;
    if (startofcookie != -1)
    {
        startofcookie += searchname.length; // skip past name of cookie
        endofcookie = mycookie.indexof(";", startofcookie);
        result = unescape(mycookie.substring(startofcookie, endofcookie));
    }
    return result;
}
function gogo()
{
    setcookie(username,document.form1.username.value);
    setcookie(password,document.form1.password.value);
    document.form1.submit();
}
// -->
</script>
</head>

<body bgcolor="#ffffff">

<form name=form1 method=post action=/***/other.pl enctype=multipart/form-data>
  <p>用户名:
    
<script language=javascript>
<!--
    var username=getcookie("username");
    if (username==null)
    {
        document.write (<input type=text name=username class=p1>);
    }
    if (username !== null)
    {
        document.write ("<input type=text name=username value="+username+" class=p1>");
    }
    document.write ("<br>密 码: ");
    var password=getcookie("password");
    if (password==null)
    {
        document.write (<input type=password name=password class=p1>);
    }
    if (password !== null)
    {
        document.write ("<input type=password name=password value="+password+" class=p1>");
    }
// -->
</script>

    <br><br>
    <input type=hidden name=pageid value="$pageid">
  </p>
headpart

print <<theend;
<input type="button" name="submit" value="进 入" onclick="gogo();"><br>
</form>
* 现已加入cookie,只需要第一次输入用户名和密码,以后系统即可自动记录,不用再输了
</body>
</html>
theend
文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
相关主题
文章页数:[1] 
Google
热门文章
·LB5000XP论坛配合SERV-U获取系统管理员权限-CGI教程,CGI文档
·CGI 版本-PHP教程,其它文章
·获取随机的由大小写字母和数字组成的八位密码-CGI教程,CGI文档
·Perl在NT下的快速简便安装方法 (转)-CGI教程,CGI文档
·实战 FastCGI(转)二-CGI教程,CGI文档
·XML和现代CGI应用程序-.NET教程,XML应用
·perl在win32平台上直接操作打印机-CGI教程,CGI文档
·实战 FastCGI(转)五(完)-CGI教程,CGI文档
·Python 快速入门(一)-CGI教程,CGI文档
·网站 PAGEVIEW 分析系统 CGI (原创)-CGI教程,CGI文档

最新文章
·顺便说说一些指示代码
·跟我学Perl(二)
·跟我学Perl(一)
·CGI教程(5)利用CGI解码FORM
·CGI教程(4)HTML 表单
·CGI教程(3)怎样发回文档给客户端
·CGI教程(2)怎样从服务器获得信息
·CGI教程(1)简介
·CGI教程(目录)
·Perl直接入门详尽指南




版权申明:本站文章均来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。
  打印  刷新  关闭
返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 虚拟主机 | 资讯中心 | 友情链接 | 网站地图

版权所有 西部数码(www.west263.com)
CopyRight (c) 2002~2006 west263.com all right reserved.
公司地址:四川成都市万和路90号天象大厦4楼 邮编:610031
电话总机:028-86262244 86263048 86263408 86263960 86264018 86267838
售前咨询:总机转201 202 203 204 206 208
售后服务:总机转211 212 213 214
财务咨询:总机转224 223 传真:028-86264041 财务QQ:点击发送消息给对方635483282
售前咨询QQ:点击发送消息给对方2182518 点击发送消息给对方241975952 点击发送消息给对方275026793 点击发送消息给对方408235859
售后服务QQ:点击发送消息给对方17708515 点击发送消息给对方307742704 点击发送消息给对方287976517 点击发送消息给对方363783715
《中华人民共和国增值电信业务经营许可证》编号:川B2-20030065号