main.html

来自「这是我自己写的用于嵌入式设备的CGI程序」· HTML 代码 · 共 448 行 · 第 1/2 页

HTML
448 行
字号
12
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>BLOOM</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache" />
<meta http-equiv="Expires" content="0" />
<link href="css/style.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript" src="js/flash.js"></script>
<style>
.sliderObj {
}
.sliderBar { width:8px; filter:Alpha(Opacity=42);background-color:#666666; border:1px solid #333; }
.sliderBtn { width:15px; background-color:#FFFFFF; color:#fff; border:1px solid #000000; }

.r-sliderObj {
	width:120px;
	height:15px;
	background-color:#fff;
	border:1px solid #666666;
	font-family: PMingLiU;
	font-size: 12px;
}
.r-sliderBar { width:8px; filter:Alpha(Opacity=42);background-color:#666666; border:1px solid #000000; }
.r-sliderBtn { width:15px; background-color:#FFFFFF; color:#FFFFFF; border:1px solid #FFFFFF; }

.g-sliderObj {
    width:120px;
	height:15px;
	background-color:#fff;
	border:1px solid #666666;
	font-family: PMingLiU;
	font-size: 12px;
}
.g-sliderBar { width:8px; filter:Alpha(Opacity=42);background-color:#666666; border:1px solid #000000; }
.g-sliderBtn { width:15px; background-color:#FFFFFF; #FFFFFF; border:1px solid #FFFFFF; }

.b-sliderObj {
    width:120px;
	height:15px;
	background-color:#fff;
	border:1px solid #666666;
	font-family: PMingLiU;
	font-size: 12px;
}
.b-sliderBar { width:8px; filter:Alpha(Opacity=42);background-color:#666666; border:1px solid #000000; }
.b-sliderBtn { width:15px; background-color:#FFFFFF; color:#FFFFFF; border:1px solid #FFFFFF; }

.d-sliderObj {
    width:120px;
	height:15px;
	background-color:#fff;
	border:1px solid #666666;
	font-family: PMingLiU;
	font-size: 12px;
}
.d-sliderBar {
	width:8px;
	filter:Alpha(Opacity=42);
	background-color:#666666;
	border:1px solid #000000;
}
.d-sliderBtn { width:15px; background-color:#FFFFFF; color:#FFFFFF; border:1px solid #FFFFFF; }

.r-1 {
	font-family: "Times New Roman", Times, serif;
	font-size: 12px;
}
#Layer100 {
	position:relative;
	width:0px;
	height:0px;
	z-index:1;
}
#Layer1 {
	position:absolute;
	width:158px;
	height:24px;
	z-index:1;
	left: 86px;
	top: 120px;
	visibility: hidden;
}
#Layer2 {
	position:absolute;
	width:196px;
	height:30px;
	z-index:2;
	left: 94px;
	top: 392px;
	visibility: hidden;
}
#Layer3 {
	position:absolute;
	width:181px;
	height:24px;
	z-index:3;
	left: 345px;
	top: 3px;
	visibility: hidden;
}
#Layer4 {
	position:absolute;
	width:132px;
	height:19px;
	z-index:4;
	left: 392px;
	top: 3px;
	visibility: hidden;
}
#Layer5 {
	position:absolute;
	width:150px;
	height:24px;
	z-index:5;
	left: 692px;
	top: 3px;
	visibility: hidden;
}
#Layer6 {
	position:absolute;
	width:135px;
	height:24px;
	z-index:5;
	left: 450px;
	top: 3px;
	visibility: hidden;
}
#Layer7 {
	position:absolute;
	width:135px;
	height:24px;
	z-index:5;
	left: 492px;
	top: 3px;
	visibility: hidden;
}
</style>
<SCRIPT language=VBScript>
<!--
Sub G1_Load

    with form1.G1Play
	    .Url="rtsp://" + window.location.host + ":[-RTSP_PORT-][-MJPEG-]"
	    .UserName="[-CURUSER-]"
	    .Password="[-CPASSWD-]"
	    .SetCmdPort([-CONTROL_PORT-])
	    .SetAlmPort(22)
	    .Buffer=40000
	    [-CONTROL-]
	    .FrameRate=[-FRVALUE-]
    End with

    form1.G1Play.Login

End Sub

sub G1_PTZ_Stop
    form1.G1Play.PTZStop
End Sub

sub G1_PTZ_LeftUp
    form1.G1Play.PTZLeftUp
End Sub

sub G1_PTZ_Left
    form1.G1Play.PTZLeft
End Sub

sub G1_PTZ_LeftDown
    form1.G1Play.PTZLeftDown
End Sub

sub G1_PTZ_Down
    form1.G1Play.PTZDown
End Sub

sub G1_PTZ_RightDown
    form1.G1Play.PTZRightDown
End Sub

sub G1_PTZ_Right
    form1.G1Play.PTZRight
End Sub

sub G1_PTZ_RightUp
    form1.G1Play.PTZRightUp
End Sub

sub G1_PTZ_UP
    form1.G1Play.PTZUp
End Sub

Sub G1_PTZ_ZOOMIN
    form1.G1Play.PTZZoomIn
End Sub

sub G1_PTZ_ZOOMOUT
    form1.G1Play.PTZZoomOut
End Sub

sub G1_PTZ_ZOOMSTOP
    form1.G1Play.PTZReset
End Sub

Sub G1_TALK
    if ss.talk_.checked then
	    form1.G1Play.StartTalk
	else
	    form1.G1Play.StopTalk
	end if
End Sub

tag = 0

sub G1_play
    form1.G1Play.Login
    form1.G1Play.StartPlay
End sub

Sub BtnShowMDRect
    form1.G1Play.ShowMDRect=not form1.G1Play.ShowMDRect
End sub
12

main.html - 源码说明

本页面展示了「这是我自己写的用于嵌入式设备的CGI程序」中的 main.html 源码文件，采用 HTML 编程语言编写，共 448 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与CGI相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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