?? disp.asp
字號:
<%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="../inc/css.asp" -->
<%
'定義變量
dim toYear,toMonth,toDay,title,image
dim Number ' 當前操作記錄號
dim opFlag ' 操作標志('cmdAddNew'/'cmdEdit'/'cmdSee')
'過濾錯誤
on error resume next
'獲取輸入參數:記錄號和操作標志
Number=request("Number")
if Number="" then Number="0"
Number=Cint(Number)
opFlag=request("opFlag")
'創建記錄訪問對象
Set rs = Server.CreateObject("ADODB.Recordset")
if opFlag="cmdSearch" then
rs.Open "select * from rizhi where vtime='" &request("vtime")& "' and vname='" &request("vname")& "'",Session("conn"),1,1
elseif opFlag="cmdSee" then
'打開記錄源,并定位到輸入參數決定的記錄號
rs.Open Session("SQL"),Session("conn"),1,1
rs.move number
end if
title="企業大事記"
image="../images/rizhi.gif"
%>
<style>
.css0 {<%=Session("vinputtext")%> }
SELECT { font-size:12px}
</style>
</head>
<body leftmargin="0" topmargin="0" >
<!-- #include file="../inc/title.asp" -->
<%
if rs.eof then
response.write("<p align=center><font color=red><b><br><br><br><br>" & request("vname") & " " & request("vtime") & " 沒有工作事件!</b></font><br><br><br><br><input type=button onclick=window.history.back() value=返回 class=vinputbutton></p>")
response.end
end if
%>
<table border="0" cellspacing="1" align="center" bgcolor="<%=Session("vtablebordercolor")%>" width="95%">
<tr bgcolor="" class=vtext>
<td align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" height="35" width="80">事件日期</td>
<td align="left" bgcolor="<%=Session("vtabletitlebackcolor")%>" width="40%">
<%=rs("vtime")%> </td>
<td align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" width="80">事件作者</td>
<td align="left" bgcolor="<%=Session("vtabletitlebackcolor")%>" width="40%"><%=rs("vname")%> </td>
</tr>
<tr class=vtext>
<td align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" height="35" width="80">事件標題</td>
<td align="left" bgcolor="<%=Session("vcolcolor")%>" colspan="3" >
<%=rs("vtitle")%> </td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" valign="top" class="">
<td height="143" colspan="4">
<%=rs("vtext")%>
</td>
</tr>
</table>
<p align=center>
<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:window.history.back()"><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
<%
rs.close
set rs=nothing
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -