scoreimport1.asp

来自「工资管理系统功能齐全包括工人工资信息查询.」· ASP 代码 · 共 30 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	Dim STestName:STestName=Request("Ssheetname")
	Dim DTestName:DTestName=Request("Dsheetname")
	Set objConn=Server.CreateObject("ADODB.Connection")
	objConn.ConnectionString=MM_StudentConn_STRING
	objConn.Open
	Set Rs=Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection=MM_StudentConn_STRING
	Rs.Source="Select * From " & DTestName
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 3
	Rs.Open()
%>
<%
	If Rs.Eof or Rs.Bof Then
		strUpdate="INSERT INTO " & DTestName & " Select * From " & STestName
'		Response.Write(strUpdate)
		objConn.execute(strUpdate)
		Msg="数据导入成功！"
		Response.Redirect("ScoreSet.asp?msg="&Msg&"&DSheetName="&DTestName)
	Else
		Msg="月库中已存在数据！"
		Response.Redirect("ScoreSet.asp?msg="&Msg&"&DSheetName="&DTestName)
	End If
%>