📄 view.asp
字号:
<% option explicit%>
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB
Dim C
Dim IntID
Dim ObjRS
IntID = Request.QueryString("ID")
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
If Request.Form.Count > 0 Then
IntID = Request.Form("ID")
Call C.Edit(IntID,"_","T_Hrms_Sys_Job")
ObjDB.Close
Set ObjDB = Nothing
Response.Redirect "list.asp"
End If
Set ObjRS = C.View("Select * From T_Hrms_Sys_Job Where ID = " & IntID)
%>
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
<form action="" method="post" onsubmit="return(CheckForm(this))" id=form1 name=form1>
<input type=hidden name=ID value="<%=Request.QueryString("ID")%>">
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr align="middle">
<td width="15%">查看岗位类型</td>
<td width="85%"> </td>
</tr>
<tr class=Ltr>
<td align="center">名称</td>
<td><input name="_JobName" type="text" class=Input id="_JobName" value="<%=ObjRS("JobName")%>" Check=0></td>
</tr>
<tr class=Ltr>
<td height="23" align="center">简介</td>
<td><textarea name="_JobBrief" cols="60" rows="10" class="Input" id="_JobBrief" check="0"><%=ObjRS("JobBrief")%></textarea></td>
</tr>
<tr class=Ltr>
<td align="center">开始时间</td>
<td><input name="_JobBegDate" type="text" class=Input id="_JobBegDate" value="<%=FormatDate(ObjRS("JobBegDate"))%>" Check=0></td>
</tr>
</table>
<table cellspacing=1 cellpadding=3>
<tr>
<td>
<input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
<td></td>
</tr>
</table>
</FORM>
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>
<!-- #include virtual="Templet/Templet.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -