📄 default.asp
字号:
<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<!-- #include file="conn.asp" -->
<html>
<head>
<title>麦布网站连接编译器 - 添加连接</title>
</head>
<body>
<p align="center"><b>麦布网站连接编译器 Ver 1.0</b></p>
<p> </p>
<p align="center"><%
If Request.Form("txtLink") <> "" Then
Dim rs, con, sql
Set con = GetDBConnection()
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Links WHERE Link = '" & Request.Form("txtLink") & "'"
rs.Open sql, con, 1, 2
If rs.EOF Then
rs.AddNew
rs("Link") = Request.Form("txtLink")
rs.Update
End If
%>连接到 <%=Request.Form("txtLink")%> 的，请用下面的代码：<br /><br />
<textarea rows="4" cols="60"><a href="go.asp?LinkId=<%=rs("pkId")%>">该网站名称</a></textarea>
<br /><br />
<a href="default.asp">继续添加其他连接</a>
<%
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
Else
%> </p>
<form action="default.asp" method="post">
<p align="center">请输入你要添加连接的网址：<input type="text" name="txtLink" value="http://" size="50" maxLength="255">
<input type="submit" name="cmdSubmit" value="提交"> </p>
</form>
<%
End If
%> <p align="center"><a target="_blank" href="http://www.mybu.net">
麦布站长会所——出色源自简单！</a></p>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -