all_back.asp

来自「武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.」· ASP 代码 · 共 52 行

<%@ Language=VBScript Transaction="Required"%>
<!--#include file="../Include/conn.asp"-->
<%
Response.CharSet="GB2312"
dim strAction
strAction=Request.QueryString("action")
Dim intInvId
intId=Request.QueryString("id")
'response.write strAction
'response.end
dim rs
set rs = server.CreateObject("adodb.recordset")
if strAction="Loaddept" Then 
    If intId="" then%>
	  <input type="text" name="txtDeptName"  size="8" >    
	<% Else 
	 rs.open "select dept_name,post_name from invite where invite_id="&intId,conn,3,3	 
 %>
     <input type="text" name="txtDeptName" value="<%=rs("dept_name")%>" size="8" readonly>
	 <%
     end If 
elseif strAction="Loadpost" Then 
    If intId="" then%>
	   <input type="text" name="txtPostName"  size="8" >  
	 <%Else 
	 rs.open "select dept_name,post_name from invite where invite_id="&intId,conn,3,3	 
 %>
     <input type="text" name="txtPostName" value="<%=rs("post_name")%>" size="8" readonly>
	 <%
     end If
elseif strAction="Loadcity" Then
    If intId="" then%>
	   <select name="selCity"><option value="">请选择</option></select>   
	<% Else 
	 rs.open "select * from city where prov_id="&intId,conn,3,3    
%> 
<select name="selCity">
<%Do While Not rs.eof%>
<option value="<%=rs("city_id")%>"><%=rs("city_name")%></option>
<%rs.movenext
loop%>
</select>市
   <%End if%>  
<%End if
if rs.State=1 then
    rs.close
end if
conn.close
set rs = nothing
set conn=nothing
%>