📄 scoreset.asp

📁 工资管理系统功能齐全包括工人工资信息查询.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	Dim title
	ntitle="数据初始化完毕，请选择要修改数据的项目！"
	DTestName=Request.QueryString("DSheetName")
	Set Rs=Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection=MM_StudentConn_STRING
	if DTestName="" then
		Response.Redirect("ScoreSet0.asp")
	else
		Rs.Source="Select * From "&DTestName
	end if
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 3
	Rs.Open()
%>
<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>
<!--#include file="ScoreManage_top.asp"-->
<form action="ScoreSet1.asp" method="get" 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="760" 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">
				<option value="<%=DTestName%>" selected disabled><%=DTestName%></option>
             </select></td>
		</tr>
		<tr>
		  <td align="right">选择初始化项目:</td>
		  <td>
<%
			 If Not Rs.EOF Or Not Rs.BOF Then
				response.Write "<table border='1' cellspacing='0' cellpadding='0' bordercolor=#ccccff style='border-collapse:collapse' width='100%'><tr>"
				For i=1 to Rs.Fields.Count-1 
					response.Write("<td><input name='chkbox' type='checkbox' value='" & Rs.Fields(i).Name & "'>")
					response.Write(Rs.Fields(i).Name)
					if i mod 8 =0 then response.write "</tr><tr>"
					Rs.MoveNext()
				Next
				response.Write("</tr></table>")
				If (Rs.CursorType > 0) Then
				  Rs.MoveFirst
				Else
				  Rs.Requery
				End If
			end if
				%>
		  </td>
		</tr>
		<tr align="center"> 
		  <td height="23" colspan="2">
		  <input type="hidden" name="ntitle" value="<%=ntitle%>">
		  <input type="submit" name="Submit" value="数据初始化"></td>
		</tr>
	</table>
   </td>
  </tr>
</table><br>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -