📄 l.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
.style4 {
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #DEE7FF;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE12 {font-family: "黑体"; font-size: 16px;}
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
</script>
</head>
<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true">
<%
dim stv,sqstv
taba="student"
if request.QueryString("action") = "" then
%>
<form name="form1" method="post" action="?action=action">
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E8EBEE">
<tr>
<td height="28" align="center" bordercolor="#E8EBEE" background="../Image/bg01.jpg" bgcolor="#0033cc" class="STYLE12">学生名册表设置</td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td width="110" valign="middle" bgcolor="#FFFFFF" class="style3">列数</td>
<td width="110" height="25" bgcolor="#FFFFFF" class="style3">1</td>
<td width="110" bgcolor="#FFFFFF" class="style3">2</td>
<td width="110" bgcolor="#FFFFFF" class="style3">3</td>
<td width="110" bgcolor="#FFFFFF" class="style3">4</td>
<td width="110" bgcolor="#FFFFFF" class="style3">5</td>
<td width="110" bgcolor="#FFFFFF" class="style3">6</td>
<td width="110" bgcolor="#FFFFFF" class="style3">7</td>
<td width="110" bgcolor="#FFFFFF" class="style3">8</td>
<td width="110" bgcolor="#FFFFFF" class="style3">9</td>
<td width="110" bgcolor="#FFFFFF" class="style3">10</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td valign="middle">显示</td>
<td height="25" valign="middle"><%call hdobj.Soa(taba,"a","a",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"b","b",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"c","c",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"d","d",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"e","e",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"f","f",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"g","g",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"h","h",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"i","i",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"j","j",3)%></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td valign="middle">列宽</td>
<td height="25" valign="middle"><input name="ba" type="text" id="ba" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bb" type="text" id="bb" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bc" type="text" id="bc" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bd" type="text" id="bd" value="100" size="9"></td>
<td height="25" valign="middle"><input name="be" type="text" id="be" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bf" type="text" id="bf" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bg" type="text" id="bg" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bh" type="text" id="bh" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bi" type="text" id="bi" value="100" size="9"></td>
<td height="25" valign="middle"><input name="bj" type="text" id="bj" value="100" size="9"></td>
</tr>
<tr align="center" bgcolor="#F1F3F5">
<td valign="middle" bgcolor="#FFFFFF" class="style3">列数</td>
<td bgcolor="#FFFFFF" class="style3">11</td>
<td bgcolor="#FFFFFF" class="style3">12</td>
<td bgcolor="#FFFFFF" class="style3">13</td>
<td height="25" bgcolor="#FFFFFF" class="style3">14</td>
<td bgcolor="#FFFFFF" class="style3">15</td>
<td height="25" bgcolor="#FFFFFF" class="style3">16</td>
<td bgcolor="#FFFFFF" class="style3">17</td>
<td bgcolor="#FFFFFF" class="style3">18</td>
<td bgcolor="#FFFFFF" class="style3">19</td>
<td bgcolor="#FFFFFF" class="style3">20</td>
</tr>
<tr align="center" bgcolor="#F1F3F5">
<td valign="middle" bgcolor="#FFFFFF">显示</td>
<td height="25" valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"k","k",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"l","l",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"m","m",3)%></td>
<td height="25" valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"n","n",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"o","o",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"p","p",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"q","q",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"r","r",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"s","s",3)%></td>
<td valign="middle" bgcolor="#FFFFFF"><%call hdobj.Soa(taba,"t","t",3)%></td>
</tr>
<tr align="center" bgcolor="#F1F3F5">
<td valign="middle" bgcolor="#FFFFFF">栏宽</td>
<td height="25" valign="middle" bgcolor="#FFFFFF"><input name="bk" type="text" id="bk" value="100" size="9"></td>
<td height="25" valign="middle" bgcolor="#FFFFFF"><input name="bl" type="text" id="bl" value="100" size="9"></td>
<td height="25" valign="middle" bgcolor="#FFFFFF"><input name="bm" type="text" id="bm" value="100" size="9"></td>
<td height="25" valign="middle" bgcolor="#FFFFFF"><input name="bn" type="text" id="bn" value="30" size="9"></td>
<td valign="middle" bgcolor="#FFFFFF"><input name="bo" type="text" id="bo" value="30" size="9"></td>
<td valign="middle" bgcolor="#FFFFFF"><input name="bp" type="text" id="bp" value="30" size="9"></td>
<td valign="middle" bgcolor="#FFFFFF"><input name="bq" type="text" id="bq" value="30" size="9"></td>
<td valign="middle" bgcolor="#FFFFFF"><input name="br" type="text" id="br" value="30" size="9"></td>
<td valign="middle" bgcolor="#FFFFFF"><input name="bs" type="text" id="bs" value="30" size="9"></td>
<td valign="middle" bgcolor="#FFFFFF"><input name="bt" type="text" id="bt" value="30" size="9"></td>
</tr>
<tr align="center" bgcolor="#F1F3F5">
<td valign="middle" bgcolor="#FFFFFF" class="style3">列数</td>
<td height="25" bgcolor="#FFFFFF" class="style3">21</td>
<td bgcolor="#FFFFFF" class="style3">22</td>
<td bgcolor="#FFFFFF" class="style3">23</td>
<td bgcolor="#FFFFFF" class="style3">24</td>
<td bgcolor="#FFFFFF" class="style3">25</td>
<td bgcolor="#FFFFFF" class="style3">26</td>
<td bgcolor="#FF99FF" class="style3">列表列数</td>
<td bgcolor="#FF99FF" class="style3"><input name="cou" type="text" id="cou" value="10" size="9"></td>
<td colspan="2" align="left" bgcolor="#FF99FF" class="style3">列数与列宽配合使用</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td valign="middle">显示</td>
<td height="25" valign="middle"><%call hdobj.Soa(taba,"u","u",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"v","v",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"w","w",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"x","x",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"y","y",3)%></td>
<td valign="middle"><%call hdobj.Soa(taba,"z","z",3)%></td>
<td valign="middle" bgcolor="#FF99FF"><span class="style3">恢复默认</span></td>
<td valign="middle" bgcolor="#FF99FF"><input name="defaults" type="checkbox" id="defaults" value="Y" checked></td>
<td colspan="2" align="left" valign="middle" bgcolor="#FF99FF">勾选默认时设置无效</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td valign="middle">列宽</td>
<td height="25" valign="middle"><input name="bu" type="text" id="bu" value="30" size="9"> </td>
<td valign="middle"><input name="bv" type="text" id="bv" value="30" size="9"></td>
<td valign="middle"><input name="bw" type="text" id="bw" value="30" size="9"></td>
<td valign="middle"><input name="bx" type="text" id="bx" value="30" size="9"></td>
<td valign="middle"><input name="yb" type="text" id="yb" value="30" size="9"></td>
<td valign="middle"><input name="bz" type="text" id="bz" value="30" size="9"></td>
<td colspan="2" valign="middle" bgcolor="#FF99FF"><input type="submit" name="Submit" value="设 置"></td>
<td colspan="2" align="left" valign="middle" bgcolor="#FF99FF"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</form>
<%
else
call hdobj.Showset("http://weekaa.com")
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -