📄 view_content.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
Dim ObjDB,StrSQL
Dim IntID,C,ObjRS
Dim IntIsHtml
IntID = Request.QueryString("ID")
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB objDB
Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
StrSQL = "Select * From t_OA_Work_ComMessage Where ID = " & IntID
Set ObjRS = C.View(StrSQL)
IntIsHtml = ObjRS("IsHtml")
ObjDB.Close
Set ObjDB = Nothing
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td { font-size:12px }
</style>
</head>
<body leftmargin="5" topmargin="5" bgcolor="#FFFFFF">
<%
If IntIsHtml Then
Response.Write ObjRS("Body")
Else
Response.Write FixBody(ObjRS("Body"))
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -