📄 scoreimport.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_StudentConn_STRING
Recordset1.Source = "SELECT * FROM TestName ORDER BY id DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<HEAD>
<link href="home.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-repeat: repeat;
}
.STYLE1 {
font-size: 18px;
font-weight: bold;
color: #3333CC;
}
-->
</style>
<title>新建月库数据处理</title></HEAD>
<body topmargin=0 leftmargin=0>
<!--#include file="ScoreManage_top.asp"-->
<form action="ScoreImport1.asp" method="post" name="daoruf">
<br>
<p class="STYLE1" align="center">第一步：从已存在的月库中导入工资信息</p>
<p align="center" class="msg"><%=Request("Msg")%></p>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<table width="400" border="1" cellpadding="5" cellspacing="0" bgcolor="#f7f7ff" style="border-collapse:collapse" bordercolor="ccccff">
<tr>
<td width="120" align="right">选择来源月库:</td>
<td width="280">
<select Name="SsheetName">
<%
i=0
While (NOT Recordset1.EOF)
if i=0 then
response.Write "<option value='" & Recordset1.Fields.Item("SheetName").Value & "' selected>" & Recordset1.Fields.Item("TestName").Value & "</option>"
else
response.Write "<option value='" & Recordset1.Fields.Item("SheetName").Value & "'>" & Recordset1.Fields.Item("TestName").Value & "</option>"
end if
i=i+1
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select></td>
</tr>
<tr>
<td align="right">选择目标月库:</td>
<td><select name="DsheetName">
<%
i=0
While (NOT Recordset1.EOF)
if i=0 then
response.Write "<option value='" & Recordset1.Fields.Item("SheetName").Value & "' selected>" & Recordset1.Fields.Item("TestName").Value & "</option>"
else
response.Write "<option value='" & Recordset1.Fields.Item("SheetName").Value & "'>" & Recordset1.Fields.Item("TestName").Value & "</option>"
end if
i=i+1
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select></td>
</tr>
<tr align="center">
<td height="23" colspan="2">
<input type="submit" name="Submit" value="导入数据库">
<input type="button" name="back" value="返回" onClick="history.go(-1)"></td>
</tr>
</table>
</td>
</tr>
</table><br>
</form>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<Iframe src="CopyRight.asp" width="760" height="100" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -