Application("ConnString")
=Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=oa;Data Source=cyserver


'从taxi数据库读取Employee表////////////////////////////////////////////////////////////////////////
dim ConnTaxi,db,rs,ConnTaxiString

ConnTaxiString="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=taxi;Data Source=cyserver"
Set ConnTaxi=Server.CreateObject("adodb.connection")
	ConnTaxi.Open ConnTaxiString
set db=server.CreateObject ("database.db")
set rs=server.CreateObject ("adodb.recordset")
set rs=db.GetRS (ConnTaxi,"select * from employee")


'///////////////////////////////////////////////////////////////////////////////////////////////////////////


option explicit
dim conn,DB
Set Conn=Server.CreateObject("adodb.connection")
conn.Open Application("ConnString")
set DB=server.CreateObject ("database.db")

CREATE TRIGGER ToHistory ON tbMeeting
FOR DELETE 
AS
insert into tbMeetingHistory

 <input type="button" name="Submit3" value="返回" onclick="window.history.back();">

function GetName(EmployeeID)  '由EmployeeID获得姓名
	dim ConnTaxiString,ConnTaxi,DataBase,NameString
	ConnTaxiString="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=taxi;Data Source=cyserver"
	Set ConnTaxi=Server.CreateObject("adodb.connection")
		ConnTaxi.Open ConnTaxiString
	set DataBase=server.CreateObject ("database.db")	
		NameString=DataBase.GetName (ConnTaxi,EmployeeID)
	
		if NameString=-1 then
		GetName="无该用户记录!"
		else
		GetName=NameString
		end if
	set DataBase=Nothing
	ConnTaxi.Close
	set ConnTaxi=nothing
		
end function


	response.Write "<script language=javascript>" _
	                & "alert('流程序号不可重复!');" _
	                & "window.history.back();" _
	                & "</script>"
	response.End




<script language="JavaScript">
function ViewForm(TheTitle)
	{
	if(document.form1.FormName.value==1)
		{
		ShowLayer('LeaveForm');
		HiddenLayer('ExpenseAccoutForm');
		HiddenLayer('OrderForm');
		HiddenLayer('EvectionForm');
		HiddenLayer('StockForm');
		HiddenLayer('GiftForm');
		document.all['LeaveFormTitle'].innerHTML=TheTitle;
		
		}
		
	if(document.form1.FormName.value==2)
		{
		HiddenLayer('LeaveForm');
		ShowLayer('ExpenseAccoutForm');
		HiddenLayer('OrderForm');
		HiddenLayer('EvectionForm');
		HiddenLayer('StockForm');
		HiddenLayer('GiftForm');
				document.all['ExpenseAccoutFormTitle'].innerHTML=TheTitle;
		}
		
	if(document.form1.FormName.value==3)
		{
		HiddenLayer('LeaveForm');
		HiddenLayer('ExpenseAccoutForm');
		ShowLayer('OrderForm');
		HiddenLayer('EvectionForm');
		HiddenLayer('StockForm');
		HiddenLayer('GiftForm');
				document.all['OrderFormTitle'].innerHTML=TheTitle;
		}
		
		if(document.form1.FormName.value==4)
		{
		HiddenLayer('LeaveForm');
		HiddenLayer('ExpenseAccoutForm');
		HiddenLayer('OrderForm');
		HiddenLayer('EvectionForm');
		ShowLayer('StockForm');
		HiddenLayer('GiftForm');
				document.all['StockFormTitle'].innerHTML=TheTitle;
		}
		
			if(document.form1.FormName.value==5)
		{
		HiddenLayer('LeaveForm');
		HiddenLayer('ExpenseAccoutForm');
		HiddenLayer('OrderForm');
		HiddenLayer('EvectionForm');
		HiddenLayer('StockForm');
		ShowLayer('GiftForm');
				document.all['GiftFormTitle'].innerHTML=TheTitle;
		}
		
			if(document.form1.FormName.value==6)
		{
		HiddenLayer('LeaveForm');
		HiddenLayer('ExpenseAccoutForm');
		HiddenLayer('OrderForm');
		ShowLayer('EvectionForm');
		HiddenLayer('StockForm');
		HiddenLayer('GiftForm');
				document.all['EvectionFormTitle'].innerHTML=TheTitle;
		}
		
	}
	
function ShowLayer(LayerName)
	{
	document.all[LayerName].style.visibility="visible";
	}
function HiddenLayer(LayerName)
	{
	document.all[LayerName].style.visibility="hidden";
	}

</script>


  <script language="jscript.encode" src="/menu.js"></script>


AttendManID 

		<link rel="stylesheet" href="/Style1.css" type="text/css">


response.Write "<script language=javascript>" _
                & "window.close();" _
                & "</script>"
response.End


width:558px; height:373px;

<%if session("UserID")="" then%>
<script language=javascript>
alert('连接超时或未登录,请重新登录!');
window.location.href='/index.asp';
</script>
<%end if%>



bbs calendar card tel soft url learn adrot chat userinfo jhtdata type helptype help 
       bumen user

<table width="100%" border="1" cellspacing="0" cellpadding="0" ID="Table1">
  <tr>
  <%for j=0 to RSuser.Fields.count-1%>
    <td><%=RSuser.Fields(j).name&"("&RSuser.Fields(j).DefinedSize&")"%></td>
  <%next%>  
  </tr>
  <%do while not RSuser.eof%>
  <tr>
  <%for k=0 to RSuser.Fields.count-1%>
    <td><%=RSuser.Fields(k).value%></td>
  <%next%>  
  </tr>
  <%RSuser.movenext
    loop%>
</table> 




'以下部分循环输出表内容//////////////////////////////////////////////////////////附加的

'response.Write "<br>"
'set RSUser=Server.CreateObject("ADODB.Recordset") 
'RSUser.Open "select * from soft",conn,1,1
'response.Write "表名称:soft <br>"

'response.Write "初始记录数:"&RSuser.RecordCount&"<br>" 
'response.Write "字段数:"&RSuser.Fields.count&"<br>"

'for i=0 to RSuser.Fields.count-1
'response.Write RSuser.Fields(i).name&"|"
'next
'response.Write "<br>"
''''''/////////////////////////////////////////////////////////////////////////////////////



ca=datediff("d",date(),"2003-4-10")
if ca>365 then
response.Write "xy"
end if