?? scoreset.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 + -