📄 select_user_main_act.asp

📁 自动化网络办公系统全部源码officeanywheresystem

💻 ASP

字号:

<%'--------------------------------------------------------------------------
'      Project: COLLAMBER网络办公系统
'      Module : 电子邮件
'      By: elf
'      Discription: 电子邮件
'--------------------------------------------------------------------------%>
<%response.expiresabsolute=#jan 01,1980 00:00:00#
if session("userid")="" then
	response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
			response.write "<!--"&chr(13)
			response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
			response.write "//-->"&chr(13)
			response.write "</SCRIPT>"&chr(13)
end if
%>
<!--#include virtual="/_inc/GeneralADO.asp"-->
<html>
<head>
<title>职员资料维护-</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=session("css")%>person.css" type="text/css">
</head>
<%

For j = 1 To Request.Form("added").Count
ors.open "select name,email,type from userinfo where id="&Request.Form("added")(j)&"",ocon,1
	
	if j=1 then
		if ors("type")=1 then
			reusername=ors("name")
			reuserid=Request.Form("added")(j)
		else
			reusername=ors("email")
			reuserid=Request.Form("added")(j)
		end if
	else
		if ors("type")=1 then
			reusername=reusername&","&ors("name")
			reuserid=reuserid&","&Request.Form("added")(j)
		else
			reusername=reusername&","&ors("email")
			reuserid=reuserid&","&Request.Form("added")(j)
		end if
	end if
	
ors.close
next

response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
response.write "<!--"&chr(13)
response.write "window.parent.opener.document.sendForm.reuserid.value='"&reuserid&"';"&chr(13)
response.write "window.parent.opener.document.sendForm.reusername.value='"&reusername&"';"&chr(13)
response.write "window.parent.close();"&chr(13)
response.write "//-->"&chr(13)
response.write "</SCRIPT>"&chr(13)
%>

<html><script language="JavaScript">                                                                  </script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -