📄 id.asp

📁 一个简单的小程序

💻 ASP

字号:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><!--#include file="inc/conn.asp"--><!--#include file="inc/ubb.asp"--><%
id=request("id")
set rs_id=server.CreateObject("adodb.recordset")
sql="select * from laos_jie where id="&id
rs_id.open sql,conn,1,1
if not rs_id.eof then
id=rs_id("id")
bid=rs_id("bid")
jid=rs_id("jid")
shujie=rs_id("shujie")
sjname=rs_id("sjname")
content=Laos_DuquFile("laos_txt/"&bid&"/"&shujie&".txt")
end if
rs_id.close
set rs_id=nothing
set rs_bid=server.CreateObject("adodb.recordset")
sql="select * from laos_shu where bid="&bid
rs_bid.open sql,conn,1,1
if not rs_bid.eof then
bname=rs_bid("name")
lbid=rs_bid("lbid")
zz=rs_bid("zz")
zt=rs_bid("zt")
sj=rs_bid("sj")
end if
rs_bid.close
set rs_bid=nothing
set rs_lb=server.CreateObject("adodb.recordset")
sql="select * from laos_class where lbid="&lbid
rs_lb.open sql,conn,1,1
if not rs_lb.eof then
lbname=rs_lb("name")
end if
rs_lb.close
set rs_lb=nothing
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=bname%>銆

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -