📄 code.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<%
Call loaderror()
Call showwebdata()
Call Language_var(Language,"code")
%>
<head>
<title><%=webname%> | 订阅代码生成</title>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<p align="center">
<!--#Include File="head.asp" -->
<%
'根据当前地址,计算订阅网址
addr0 = Request.Servervariables("server_name")
addr1 = Request.Servervariables("url")
addr1=replace(addr1,"code.asp","dysend.asp")
addr="http://"&addr0&addr1
%>
<p align="center">
<center>
<br>
<table border="1" width="433" cellspacing="0" cellpadding="0" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="233">
<tr>
<td width="434" background="images/mmTo.gIf" height="20" bgcolor="#7C96B8">
<DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative"><p align="center"><font color="#336699"><%=Language_code(0)%></font></div></td>
</tr>
<tr>
<td width="434" height="200">
<textarea rows="11" name="S1" cols="60" class="bk">
<!--<%=Language_code(1)%>-->
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="15" width="256" bordercolor="#000000" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr>
<td height="15" width="254">
<Form method="POST" action="<%=addr%>">
<input type="text" name="fsemail" size="20" style="ime-mode:disabled">
<input type="Submit" value="<%=Language_code(3)%>" name="B1" class="bk"><input type="Submit" value="<%=Language_code(4)%>" name="td" class="bk">
</Form>
</td>
</tr>
</table>
<!--<%=Language_code(2)%>-->
</textarea></td>
</tr>
</table>
<p align="center"><%=Language_code(5)%></p>
<!--<%=Language_code(1)%>-->
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="15" width="256" bordercolor="#000000" bordercolordark="#000000" bordercolorlight="#000000">
<tr>
<td height="15" width="254">
<Form method="POST" action="http://Donggan.net/xbsoft/mail/dysend.asp">
<input type="text" name="fsemail" size="20">
<input type="Submit" value="<%=Language_code(3)%>" name="B1" class="bk"><input type="Submit" value="<%=Language_code(4)%>" name="td" class="bk">
</Form>
</td>
</tr>
</table>
<!--<%=Language_code(2)%>-->
</center>
<%
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -