📄 index.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

💻 ASP

字号:

<html>
<%
if Cint(request("id"))<>"" and Cint(request("id"))<>0 then
	response.cookies("ComeId")=Cint(request("id"))
	Response.Cookies("ComeId").Expires= DateAdd("d",365,now()) 
end if
%>
<!--#include file="head.asp"-->
<title><%=NetName%> - 站长赚钱,流量交换,流量买卖,流量交易,弹窗买卖，弹窗交换，退出弹窗，延时弹窗，</title>
<body>

<!--#include file="toper.asp"-->
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<table width="750" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=left><%
	if Session("Id")<>"" and Session("UserName")<>"" then
	  response.write "<br>"
	  call ShowMenu
	  response.write "<br>"
	end if%></td>
  </tr>
</table>
<table width="500" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td><%ShowContent()%> </td>
	</tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<!--#include file="foot.asp"-->

</body>

</html>
<%
Function ShowContent ()
	sql="select Index from Content"
	set rs=conn.execute (sql)
	if not rs.eof then
		response.write rs("Index")
		rs.close
	end if
End Function
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -