⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 view_body.asp

📁 功能齐全的oa系统
💻 ASP
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim IntID,C,ObjRS
	
	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_Policy Where ID = " & IntID
	Set ObjRS = C.View(StrSQL)
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body         { border: 1 solid #dedfde ;font-size:14px}
td         { font-size:14px }
</style>
</head>
<body leftmargin="10" topmargin="10" bgcolor="#FFFFFF">
<%=ObjRS("Body")%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -