view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS
	Dim IntID
	Dim C
	
	IntID = 1
	
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	
	StrSQL ="Select * From t_OA_SYS_Account_Character Where AccountID = " & IntID 
	
	Set ObjRS = C.View(StrSQL)
	
	ObjDB.Close
	Set ObjDB = Nothing
%>


<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>

	<%
	If ObjRS.Count > 0 Then
	%>
	
	<table width=100%>
	<tr>
	<td>ID : <input type=text name=AccountID value="<%=ObjRS("AccountID")%>"></td>
	</tr>
	<tr>
	<td>姓名 : <input type=text name=TrueName value="<%=ObjRS("TrueName")%>"></td>
	</tr>
    <tr>
      <td>性别 : <input type=radio name=Gender value=1 <%If objRS("Gender")=1 then Response.Write " Checked " %>>男<input type=radio name=Gender value=2 <%If objRS("Gender")=2 then Response.Write " Checked " %>>女</td>
    </tr>
	<tr>
	<td>生日 : <input type=text name=Birthday value="<%=ObjRS("Birthday")%>"></td>
	</tr>
	<tr>
      <td>婚姻状况 : <input type=radio name=IsMarriage value=1 <%If objRS("IsMarriage") then Response.Write " Checked " %>>已婚<input type=radio name=IsMarriage value=0 <%If Not objRS("IsMarriage") then Response.Write " Checked " %>>未婚</td>
    </tr>
	<tr>
	<td>国籍 : <input type=text name=Nation value="<%=ObjRS("Nation")%>"></td>
	</tr>	
	<tr>
	<td>籍贯 : <input type=text name=NativePlace value="<%=ObjRS("NativePlace")%>"></td>
	</tr>
	<tr>
	<td>电话 : <input type=text name=Tel value="<%=ObjRS("Tel")%>"></td>
	</tr>
	<tr>
	<td>地址 : <input type=text name=Address value="<%=ObjRS("Address")%>"></td>
	</tr>
	<tr>
	<td>职称 : <input type=text name=Education value="<%=ObjRS("Education")%>"></td>
	</tr>
	<tr>
	<td>办公电话 : <input type=text name=WorkTel value="<%=ObjRS("WorkTel")%>"></td>
	</tr>
	<tr>
	<td>家庭电话 : <input type=text name=HomeTel value="<%=ObjRS("HomeTel")%>"></td>
	</tr>
	<tr>
	<td>手机 : <input type=text name=Mob value="<%=ObjRS("Mob")%>"></td>
	</tr>
	<tr>
	<td>电子邮件 : <input type=text name=Email value="<%=ObjRS("Email")%>"></td>
	</tr>
	<tr>
	<td>用户角色 : <input type=text name=RoleName value=外联t_OA_SYS_Role></td>
	</tr>	
	<tr>
	<td>创建时间 : <input type=text name=CreateTime value="<%=ObjRS("CreateTime")%>"></td>
	</tr>
	<tr>
	<td>个人简历 : <input type=text name=Des value="<%=ObjRS("Des")%>"></td>
	</tr>

	</table>
	
	<%
	End If
	%>

<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>

<!-- #include file="Templet.asp" -->