test.asp

来自「企业及其分支机构的内部办公管理系统,包括人事」· ASP 代码 · 共 30 行

<%@ Language=VBScript %>
<%
set conn = server.createobject ("adodb.connection")
conn.open "ASPData", "sa", "yourpassword"

'set RSEmails = conn.Execute("select Name, EmailAddress from PSLogins")
set RSEmails = conn.Execute("select EmailAddress from PSLogins where Department = '研发部' ")
'set RSEmails = conn.Execute("select Name, EmailAddress from PSLogins where Position = '" & Request.Form("PositionName") & "'")
	

	'conn.Execute "Insert Into VotingQuestions (SenderName, Subject, Question, WhenSent) " _
	'	& "values (" _
	'	& "" & Session("Name") & ", " _
	'	& "'" & Request.Form("Subject") & "', " _
	'	& "'" & Request.Form("Question") & "', " _
	'	& "'" & CurrentDateTime & "')"
	'set RSQuestionID = conn.Execute("select QuestionID from VotingQuestions " _
	'	& "where WhenSent = #" & CurrentDateTime & "#")
			
	do Until RSEmails.eof
	
	'Response.write RSEmails("Name") & chr(13)
	Response.write RSEmails("EmailAddress") & chr(13)
	RSEmails.MoveNext
	loop
		

set RSDepartments = conn.Execute("select * from 部门信息 where 部门名称 <>'All' order by 部门名称")
set PSPositions = conn.Execute("select PositionName from Positions order by PositionID")
%>