?? disp.asp
字號:
<%@LANGUAGE="VBScript"%>
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("oabusyuserlevel")
session("id")=session("oabusyname")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title>備忘錄</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #include file="../main/css.asp" -->
<%
on error resume next
dim Number,opFlag,title,image
'獲取輸入?yún)?shù):記錄號和操作標志
Number=request("Number")
if Number="" then Number="0"
Number=Cint(Number)
opFlag=request("opFlag")
'創(chuàng)建記錄訪問對象
Set rs = Server.CreateObject("ADODB.Recordset")
'打開記錄源,并定位到輸入?yún)?shù)決定的記錄號
rs.Open Session("SQL"),Session("conn"),1,3
rs.move Number
title="個人備忘錄"
image="../images/memo.gif"
%>
</head>
<body id=all>
<!-- #include file="../public/title.asp" -->
<table align="center" width="95%" cellpadding="0" border="0" cellspacing="1" bgcolor="<%=session("vtablebordercolor")%>">
<tr valign="top" class=vtext>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> height="25" align="left" valign="middle">
<b>個人備忘錄:</b><%=rs("vtitle")%></td>
</tr>
<tr valign="top">
<td bgcolor="#ffffff" height="300">
<%=rs("vtext")%>
</td>
</tr>
</table>
<table class=p9 cellspacing=0 cellpadding=0 width=90% border=0 align="center">
<tr>
<td>
<p align=center>
<br>
<button class=vinputbutton style="height=24" onClick="window.location.href='print.asp?Number=<%=Number%>'"><img src="../images/print.gif" align="absmiddle"> 打印</button>
<button class=vinputbutton name="Submit6" style="height=24" onClick=javascript:history.go(-1);><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -