📄 open.asp

📁 一个人用ASP+SQL制作的个人博客

💻 ASP

字号:

<%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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -