?? add_introduce.asp
字號:
<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="xcss.css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body background="images/zapsmbknd.gif">
<%
b_bookid = Request.QueryString("bookid")
set conn = server.CreateObject("adodb.connection")
conn.Open Application("dsn")
sql = "select bookid,name,author,dir from BookDetail where bookid=" & b_bookid
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
if rs.EOF then
rs.Close
set rs = nothing
conn.Close
set conn = nothing
Response.Write "找不到您要的文件！"
Response.End
end if
dir = rs("dir")
b_name = rs("name")
author = rs("author")
rs.Close
set rs = nothing
conn.Close
set conn = nothing
dir = replace(dir,"\","/")
%>
<form action="add_introaction.asp" method="post" id="form1" name="form1">
<h3>添加到推薦書目：</h3>
<p><b>書名：</b><%=b_name%></p>
<p><b>作者：</b><%=author%></p>
<p valign="top"><b>給推薦書目的簡要評價：</b><br>
<input type="hidden" name="username" value="<%=session("username")%>">
<input type="hidden" name="bookid" value="<%=b_bookid%>">
<textarea id="detail" name="detail" style="HEIGHT: 38px; WIDTH: 250px" valign="top"></textarea></p>
<table WIDTH="250" BORDER="0" CELLSPACING="1" CELLPADDING="1">
<tr>
<td align="middle"><input type="submit" value="添加" id="submit1" name="submit1"> <input type="button" value="取消" onclick="javascript:window.close();" id="button1" name="button1"></td>
</tr>
</table>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -