show.asp

财务预算管理 财务支出

<%Dim conn
Dim StrConn
Dim Rs
Dim Sql
Dim i
Dim ExName,ExTName
ExName = Request.Form("ExName")
ExTName = Request.Form("ExTName")
Set conn =Server.CreateObject("ADODB.Connection")
StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath(""&ExName)
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset") 
Sql="select * from ["&ExTName&"$]"
rs.Open Sql,conn,3,3
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据导入</title>
	
	<p align="center">&nbsp;</p>
	
<p align="center">请确认excel表中的字段与数据库<%if exname="cgys.xls" then %>采购预算目分口文件要求中的字段相同！ </p>
	<form id="form1" name="form1" method="post" action="save_cgys.asp">
  <%else if exname="pinmu.xls" then%>品目 对应表中的字段相同！ </p>
	<form id="form1" name="form1" method="post" action="save.asp">
	<%else if exname="danwei.xls" then%>品目分口文件要求中的字段相同！ </p>
	<form id="form1" name="form1" method="post" action="save_danwei.asp">
	<%end if end if end if%>	
	<table  width="80%" border=0 align=center cellspacing=1 bgcolor=#999999>
      <tr align=center>
	  <td align=center>
	  <%
for ii=0 to rs.Fields.Count-1 
%>
<input name=temp<%=ii%> value="<%=Rs(ii).Name%>" size="10">
       <%Next%>
  </td>    
  </tr>

    </table>
    
<input  name="recCnt" type="hidden" id="recCnt" maxlength="1" value="<%=rs.RecordCount%>">

<input name="ExName" type="hidden" id="ExName" maxlength="1" value="<%=ExName%>">

<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
 <% Response.Write "<table width='80%' border=0 align=center cellspacing=1 bgcolor=#999999>"
Response.Write "<tr bgcolor=white><td align=center>"
Dim a
a=0
do while not rs.eof
for i=0 to rs.Fields.Count-1
if i mod rs.Fields.Count = 0 then 
Response.Write "<br>"
End if
%>
<input name=<%=Rs(i).Name %> value="<%=Rs(i)%>" size="10">

<%
a = a +1
next
rs.MoveNext
Loop
Response.Write "</td></tr><tr><td align=center><input type=submit value=导入数据></td></tr></table>"
Response.Write "</form>"
rs.close
set rs=nothing
conn.close
set StrConn=nothing
Response.End

%>
    </tr>
	  
</table>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input type="submit" name="Submit" value="提交" />
</form>