📄 scoreset0.asp

📁 工资管理系统功能齐全包括工人工资信息查询.

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	Set Rs=Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection=MM_StudentConn_STRING
	Rs.Source="Select * From TestName"
	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="ScoreSet.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="360" border="1" cellpadding="15" cellspacing="0" bgcolor="#f7f7ff" style="border-collapse:collapse" bordercolor="ccccff">
		<tr> 
		  <td align="right" class="littletitle">要初始化的月库:</td>
		  <td>
			 <select Name="DSheetName">
			 <%
			 	while not Rs.eof
			 %>
				<option value="<%=Rs("SheetName")%>" selected disabled><%=Rs("TestName")%></option>
			 <%
			    Rs.movenext
				wend
			 %>
             </select></td>
		</tr>
	</table>
   </td>
  </tr>
</table>
<div align="center"> <br>
<input type="submit" name="cxcsh" value="重新初始化月库">
</div></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 + -