?? in_二次點擊進入.asp
字號:
<%if request("user")="" then
Response.Redirect "index.asp"
Response.end
end if%>
<!--#include file="dbpath.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from link where user='"&request("user")&"'"
rs.open sql,conn,1,3
if request.cookies("jypxin")="ok" and request.form("re")<>"" then
if not rs.EOF then
rs("incount").value = rs("incount").value + 1
rs.Update()
end if
response.cookies("jypxin")=Null
Response.Redirect "index.asp?type="&request("type")&""
else
set rsadm=server.createobject("adodb.recordset")
sqladm="select * from admin"
rsadm.open sqladm,conn,1,1
set rst=server.createobject("adodb.recordset")
sqlt="select * from type where type='"&rs("type")&"'"
rst.open sqlt,conn,1,1
response.cookies("jypxin")="ok"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rsadm("webname")%></title>
<style type="text/css">
td { font-size: 9pt; line-height: 12pt}
a:link {color: #000080; text-decoration: none }
a:visited {color: #000080; text-decoration: none }
a:hover {color: #FF0000; text-decoration: underline }</style>
</head>
<body topmargin="0" leftmargin="0">
<p align="center"><img border="0" src="img/banner.gif"><br>
</p>
<center><font color="#FF00FF" size="5" face="方正中倩簡體">點此按鈕進入<%=rsadm("webname")%>!</font>
<form action="in.asp?type=<%=rs("type")%>&user=<%=request("user")%>" method="POST">
<input type="Submit" name="re" value=" 快進來啊! 好多<%=rst("name")%>酷站等你來看哦! ">
</form>
</center></body></html>
<%end if
response.write""&vvv&""
rs.close
set rs=nothing
Conn.Close
Set Conn = nothing%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -