open.asp

来自「一个人用ASP+SQL制作的个人博客」· ASP 代码 · 共 32 行

ASP
32 行
字号 
<%Option Explicit%>
<!--#include file="articleconn.asp"-->
<%
dim RS,sql,strSQL,zhuinew
dim url,id,ddd,dddd
id	= Request.QueryString("id")
filmid=request("filmid")
if Trim(id) <> "" and IsNumeric(id) then
	Set RS = Server.CreateObject("ADODB.RecordSet")
	sql = "select * from url where id = " & id
	RS.Open sql, Conn, 3, 3
	url=rs("url")
	ddd=rs("filmid")
	RS.Close
	Set RS = nothing
end if
strSQL ="SELECT * FROM film where id=" & ddd 
Set zhuinew = Server.CreateObject("ADODB.Recordset")
zhuinew.open strSQL,Conn,3,3
	zhuinew("hits")=zhuinew("hits")+1
	filmtype=zhuinew("runsystem")
        zhuinew.update
	zhuinew.Close
	Set zhuinew = nothing
Conn.Close
Set Conn = nothing
%>
<HTML>
<BODY onload="opener.location.href='<%=url%>';window.close();">
</BODY>
</HTML>

open.asp - 源码说明

本页面展示了「一个人用ASP+SQL制作的个人博客」中的 open.asp 源码文件，采用 ASP 编程语言编写，共 32 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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