📄 execute.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.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 }
textarea { font-size:12px }
</style>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#DEDFDE">
<table width=100% border="0" cellpadding="3" cellspacing="0">
<tr><td bgcolor=#AAAAAA ><font color=#ffffff>公文批复</font></td></tr>
<tr><td><input type="checkbox" name="C1" value="ON">审核通过<td></tr>
<tr><td><textarea rows="15" name="S1" cols="60"></textarea></td><tr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -