📄 goto_sx.asp

📁 这是一个非常好的留言版程序

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
dim ID,Title,FromURL
ID=Trim(Request.QueryString("ID"))

Application.Lock()
set rs=conn.execute("select * from zhai where ID="&ID)
Title=rs("Title")
FromURL=rs("FromURL")
set rsupdate=conn.execute("update zhai set reads=reads+1 where ID="&ID)

dim VisitIP,VisitURL
set rsadd=server.createobject("ADODB.recordset")

rsadd.Open "visit",conn,3,3
rsadd.AddNew
rsadd("ZhaiID")=ID
rsadd("UserID")=UserID
rsadd("VisitIP")=VisitIP
rsadd("VisitURL")=VisitURL
rsadd("VisitTime")=now
rsadd.Update	
rsadd.close	
Application.UnLock()
%>
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=title%>">
<meta name="description" content="<%=title%>">
</head>
<frameset rows="*,63" name=forum  frameborder=0 framespacing="0" cols="*"> 
  <frame name="mainFrame" src="<%=FromURL%>" >
  <frame name="bottomFrame" scrolling="no" src="showb.asp?id=<%=ID%>">
</frameset>
<noframes>
   <body>
	<p><%=title%></p>
        <p><%=FromURL%></p>
   </body>
</noframes>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -