📄 city.asp

📁 网上学生心里调查系统

💻 ASP

字号:

<%st=timer()%>
<% Response.Buffer = True %>
<!--#include file="config.asp" -->
<!--#include file="ad.asp" -->
<%
dim mycity, mylb
mycity=trim(request("ct"))
if len(mycity)=0 then response.redirect "ok.asp?ok=error" end if

mylb=trim(request("lb"))

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from city where 审核=-1 and 区号='"& mycity &"'",conn,3,3
if rs.eof or rs.bof then response.redirect "ok.asp?ok=error"  end if
rs("人气")=rs("人气")+1
rs.update
rs.close
rs.open "select * from city where 审核=-1 and 区号='"& mycity &"'",conn,1,1
%>

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title><%=rs("城市")%>市（<%=rs("省份")%>） -- <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="2" oncontextmenu="self.event.returnValue=false" >
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="<%=sitealign%>">
<!--#include file="title.asp" -->
<!--菜单--><!--#include file="menu.asp" -->  
<!--推荐--><!--#include file="tuijian.asp" -->
<!--聚会--><!--#include file="daohang.asp" -->
<!--所有--><!--#include file="suoyou.asp" -->
<!--文字广告，ad.asp--> <%call ad_bottom()%>
<!--#include file="copyright.asp" -->
</div>
</body></html>
<%
et=timer()
response.write("<br><div align=center>加载网页总用时 "&int((et-st)*1000000)/1000&" ms</div><br><br>")
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -