📄 index.asp

📁 一个查询某一个域名是否被注册的源代码 socket连接HTTP请求网络编程学习

💻 ASP

字号:

<?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"><%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%response.buffer=true%><%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><!--#include file="conn.asp"--><!--#include file="noandad.asp"--><wml><head><meta http-equiv="Cache-Control" content="no-Cache"/><meta http-equiv="Cache-Control" content="max-age=0"/></head><card title="Wapgo123瀵艰埅"><%if pno<>"" thenagent=request.serverVariables("HTTP_USER_AGENT")set rsa=Server.CreateObject("ADODB.Recordset")Sqll="select * from [user] where [num]='" & pno & "' order by ID desc"rsa.open Sqll,conn,1,2if rsa.recordcount=0 thenrsa.addnewrsa("hit")=0rsa("num")=pnorsa("agent")=agentrsa.updateresponse.redirect "index.asp"end ifif rsa.recordcount>0 and rsa("hit")=1 thenrsa("hit")=rsa("hit")+1rsa.updateresponse.redirect "main.asp"end ifif rsa.recordcount>0 and rsa("hit")=0 thenrsa("hit")=rsa("hit")+1rsa.updateend ifrsa.Closeset rsa=nothingend if%><p align="center"><img src='img/logo.gif' alt=''/></p><%set rst=server.createobject("ADODB.Recordset")Sql="select * from class where show=1 order by ClassID asc"rst.open Sql,conn,1,2%><%if rsn.recordcount > 0 thenrsn.movefirstif len(rsn("time"))=8 thenl=3elseif len(rsn("time"))=9 thenl=4elsel=5end if%><a href="notice/view.asp?ID=<%=rsn("ID")%>"><%=ubb(rsn("title"))%></a>(<%=right(rsn("time"),l)%>)<br/><%end if%><%if rsad.recordcount > 0 thenad=1do while not rsad.eof%><a href="<%=rsad("adurl")%>"><%=ubb(rsad("adtitle"))%></a><br/><%ad=ad+1rsad.movenextloopend if%><center><a href="bookmark/index.asp">鏀惰棌澶

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -