📄 plread.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#INCLUDE FILE="conn.asp"-->
<%
url=request("url")
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_hs_STRING
rs.Source = "SELECT * FROM pinglun Where url='"&url&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 2
rs.Open()
response.write "&SendOK=1&tdp="
if not rs.eof then
do while not rs.eof
response.write "<n><id>"&rs("pid")&"</id>"
response.write "<l>"&rs("ptitle")&"</l>"
response.write "<l>"&rs("ptxt")&"</l>"
response.write "<l>"&rs("ptime")&"</l></n>"
rs.movenext
loop
else
response.write "iloveyuki/yellowboy"
end if
rs.close
set rs=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -