📄 head.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="Const.asp"-->
<%
'on error resume next
Dim ComeId
ComeId=request.Cookies("ComeId")
if isnull(ComeId) then
	ComeId=1
end if
if ComeId="" then
	ComeId=1
end if
%>

<%
Public function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
end function

Sub ShowMenu_OLD
	response.write "<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0><TR><TD align=center>"
	response.write "<a href=lljy.asp>交易大厅</a> | <a href=lmdm.asp>获取联盟代码</a> | <a href=trtctj.asp>弹入弹出统计</a> | <a href=xxtj.asp>下线统计</a> | <a href=modify.asp>资料修改</a> | <a href=logout.asp>退出登陆</a> | <a href=login.asp>返回</a> <br />"
	response.write "</TD></TR></TBODY></TABLE>"	
End Sub
Sub ShowMenu 
	response.write "<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0><TR><TD align=center>"
	response.write "<a href=""wygm.asp"">我要购买</a> | <a href=wycs.asp>我要出售</a> | <a href=zhxx.asp>帐户信息</a> | <a href=sqvip.asp>申请VIP</a> | <a href=lmdm.asp>获取联盟代码</a> | <a href=trtctj.asp>弹入弹出统计</a> | <a href=xxtj.asp>下线统计</a> | <a href=modify.asp>资料修改</a> | <a href=logout.asp>退出登陆</a> | <a href=login.asp>返回</a> <br />"
	response.write "</TD></TR></TBODY></TABLE>"	
End Sub
Sub ShowMenuBuy 
	response.write "<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0><TR><TD align=center>"
	response.write "<a href=""wygm.asp"">我要购买</a> | <a href=wycs.asp>我要出售</a> | <a href=zhxx.asp>帐户信息</a> | <a href=sqvip.asp>申请VIP</a> | <a href=lmdm.asp>获取联盟代码</a> | <a href=trtctj.asp>弹入弹出统计</a> | <a href=xxtj.asp>下线统计</a> | <a href=modify.asp>资料修改</a> | <a href=logout.asp>退出登陆</a> | <a href=login.asp>返回</a> <br />"
	response.write "</TD></TR></TBODY></TABLE>"	
End Sub

Sub ShowMenuToll 
	response.write "<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0><TR><TD align=center>"
	response.write "<a href=""wygm.asp"">我要购买</a> | <a href=wycs.asp>我要出售</a> | <a href=zhxx.asp>帐户信息</a> | <a href=sqvip.asp>申请VIP</a> </a> <br />"
	response.write "</TD></TR></TBODY></TABLE>"	
End Sub


Public Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

Public Sub OptionList(SelectedId)
	ArrayAuthor=split(Author,"|")
	sql="select * from SiteType order by id asc"
	set rs_op=conn.execute (sql)
	if not rs_op.eof then
		do while not rs_op.eof
			Response.Write("<option value='"& (rs_op(0)) &"'")
			if rs_op(0)=SelectedId then
				Response.Write("selected")
			end if
			Response.Write(">"& (rs_op(1)) &"</option>")
			rs_op.movenext
		loop
		rs_op.close
		set rs_op=nothing
	end if
End Sub

%>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE>
BODY {
	FONT-SIZE: 12px;
}
TD {
	FONT-SIZE: 12px
}
P {
	FONT-SIZE: 12px
}
INPUT {
	FONT-SIZE: 12px
}
P {
	MARGIN: 10px 0px 4px; LINE-HEIGHT: 140%
}
A {
	COLOR: #0000ff;TEXT-DECORATION: none
}
A:hover {
	COLOR: #000033;TEXT-DECORATION: underline
}
A:visited {
	COLOR: #0000ff;TEXT-DECORATION: none
}
#top A {
	COLOR: #0000cc; TEXT-DECORATION: none
}
#top A:hover {
	COLOR: #000000; TEXT-DECORATION: underline
}
#top A.a1 {
	COLOR: #000000; TEXT-DECORATION: none
}
#top A.a1:hover {
	COLOR: #0000cc; TEXT-DECORATION: underline
}
.style1 {
	FONT-SIZE: 14px
}
.style2 {
	COLOR: #0000ff
}
.red {
	color:#CC0000
}
#friendlist A {
	COLOR: #0000cc; TEXT-DECORATION: none
}
#friendlist A:hover {
	COLOR: #000000; TEXT-DECORATION: underline
}
User{
	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; BACKGROUND-COLOR: #FFFA94}
.s {
	font-weight: bold;
	color:#FFFFFF
}
H1 {
	FONT-SIZE: 16px; MARGIN: 25px 0px; COLOR: #0000cc; TEXT-ALIGN: center
}
H2 {
	FONT-SIZE: 14px; MARGIN: 16px 0px; COLOR: #0000cc
}

.User {
	background-color: #FFFF00;
}
.c {
	font-weight: bold;
}
</STYLE>

<SCRIPT>
<!--
function g(url){var url;window.location.href=url;}
function xxg(){
  if (document.f.uname.value==""){
	  alert("请输入用户名")
	  document.f.uname.focus();
	  return false
		}
  if (document.f.uname.value.length<4 ||document.f.uname.value.length>16){
	  alert("请注意用户名长度")
	  document.f.uname.focus();
	  return false
		}
  if (document.f.pass1.value==""){
	  alert("请输入密码");
	  document.f.pass1.focus();
	  return false
	  } 
  if (document.f.pass1.value.length<4 ||document.f.pass1.value.length>16){
	  alert("请注意密码长度")
	  document.f.pass1.focus();
	  return false
		} 
  if (document.f.pass2.value==""){
	  alert("请输入确认密码");
	  document.f.pass2.focus();
	  return false
	  } 
  if (document.f.pass2.value!=document.f.pass1.value){
	  alert("两次输入的密码不一致");
	  document.f.pass2.select();
	  return false
	  } 
  if (document.f.email.value==""){
	  alert("请输入电子邮件地址");
	  document.f.email.focus();
	  return false
	  } 
  if (document.f.sitename.value==""){
	  alert("请输入网站名称");
	  document.f.sitename.focus();
	  return false
	  } 	  
	  	  
  if (document.f.siteurl.value.length<10){
	  alert("请输入网站地址");
	  document.f.siteurl.focus();
	  return false
	  } 	  	    
   if (document.f.CheckCode.value==""){
	  alert("请输入验证码？");
	  document.f.CheckCode.focus();
	  return false
	  }
   if (document.f.rule.checked!=true){
	  alert("如果要注册首先要阅读必同意本站条款");
	  document.f.rule.focus();
	  return false
	  }
	  return true
}
function reset_form(){
document.f.uname.value="";
document.f.pass1.value="";
document.f.CheckCod.value="";
document.f.uname.focus;
}

function checkbuy(){
	  if (document.f.Quantity.value==""){
		  alert("请输入流量点数");
		  document.f.Quantity.select();
		  return false
		  } 
		if (document.f.Quantity.value*document.f.UnitPrice.value/100<<%=LowerLimit%>) {
		  alert("注意:交易总金额不能少于<%=LowerLimit%>元");
		  document.f.Quantity.select();
		  return false
		}
		return true;
}

function checkvip(){
	  if (document.f.Vip1.value==""){
		  alert("帐户姓名");
		  document.f.Vip1.select();
		  return false
		  } 
	  if (document.f.Vip2.value==""){
		  alert("银行帐号");
		  document.f.Vip2.select();
		  return false
		  } 
	  if (document.f.Vip3.value==""){
		  alert("开户地址");
		  document.f.Vip3.select();
		  return false
		  } 
	  if (document.f.Vip4.value==""){
		  alert("联系电话");
		  document.f.Vip4.select();
		  return false
		  } 
	  if (document.f.Vip5.value==""){
		  alert("通信地址");
		  document.f.Vip5.select();
		  return false
		  } 
   if (document.f.CheckCode.value==""){
	  alert("请输入验证码？");
	  document.f.CheckCode.focus();
	  return false
	  }
		return true;
}

function xxg_modify(){
	if (document.f.pass1.value!=""){
	  if (document.f.pass1.value.length<4 ||document.f.pass1.value.length>16){
		  alert("请注意密码长度")
		  document.f.pass1.focus();
		  return false
			} 
	  if (document.f.pass2.value==""){
		  alert("请输入确认密码");
		  document.f.pass2.focus();
		  return false
		  } 
	  if (document.f.pass2.value!=document.f.pass1.value){
		  alert("两次输入的密码不一致");
		  document.f.pass2.select();
		  return false
		  } 
	 }
		 
	  if (document.f.email.value==""){
		  alert("请输入电子邮件地址");
		  document.f.email.focus();
		  return false
		  } 
	  if (document.f.sitename.value==""){
		  alert("请输入网站名称");
		  document.f.sitename.focus();
		  return false
		  } 	  
			  
	  if (document.f.siteurl.value.length<10){
		  alert("请输入网站地址");
		  document.f.siteurl.focus();
		  return false
		  } 	  	    
	   if (document.f.CheckCode.value==""){
		  alert("请输入验证码？");
		  document.f.CheckCode.focus();
		  return false
		  }
	   if (document.f.rule.checked!=true){
		  alert("如果要注册首先要阅读必同意本站条款");
		  document.f.rule.focus();
		  return false
		  }
		  return true
}
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall')
       e.checked = form.chkall.checked;
    }
  }

//-->
</SCRIPT>
<script language="javascript" src="js/function.js"></script>
<link href="css/frame.css" type="text/css" rel="stylesheet">
⌨️ 快捷键说明

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