📄 specadd.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面
Conn = hdobj.WeekaaConn()
ID=Request.QueryString("ID")
ss=Request.QueryString("ss")
if ss="" then
if ID<>"" then
Set rv = Server.CreateObject("ADODB.RecordSet")
sqlv = "Select * From [Tespec] where ID="&ID
rv.Open Sqlv,Conn,1,3
rva=rv("a")
rvb=rv("b")
rvc=rv("c")
rvd=rv("d")
rve=rv("e")
rvf=rv("f")
rvg=rv("g")
rvh=rv("h")
rvi=rv("i")
rvj=rv("j")

end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="luxiaoqing" CONTENT="no-cache">
<STYLE TYPE="text/css">
<!--
BODY {
	background-image: url();
	background-position: center;
	background-repeat: repeat;
	background-attachment: fixed;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
} 
.style2 {font-size: 12px}
.style3 {font-size: 12px}
.style4 {
	color: #FFFFFF;
	font-size: 14px;
}
.style5 {color: #FF0000}
body,td,th {
	font-size: 12px;
}
.STYLE8 {
	font-family: "黑体";
	font-size: 18px;
	color: #CC3300;
}
a:link {
	color: #CC0000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #CC0000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}

-->
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>

</head>

<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">

  
<table width="580" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#EEF2FF">
<form name="form1" method="post" action="?ss=100&ID=<%=ID%>">
        <tr>
          <td height="25" colspan="2" align="center" background="../../Image/bg01.jpg" bgcolor="#0C4FBC">&nbsp;</td>
    </tr>
        <tr>
          <td height="40" colspan="2" align="center" bgcolor="#FFFFFF"><span class="STYLE8">增加修改共享信息</span></td>
        </tr>
        
        <tr>
          <td height="25" align="center">编　　号</td>
          <td align="left"><input name="a" type="text" id="a" value="<%=rva%>" size="30"></td>
        </tr>
        <tr>
          <td width="113" height="25" align="center">共享名称</td>
          <td width="461" align="left"><input name="b" type="text" id="b" value="<%=rvb%>" size="30"></td>
        </tr>
        <tr>
          <td height="25" align="center">类　　别</td>
          <td align="left"><input name="c" type="text" id="c" value="<%=rvc%>" size="30"></td>
        </tr>
        <tr>
          <td height="25" align="center">文件格式</td>
          <td align="left"> <input name="d" type="text" id="d" value="<%=rvd%>" size="30"></td>
        </tr>
        <tr>
          <td height="25" align="center">作　　者</td>
          <td align="left"><input name="e" type="text" id="e" value="<%=rve%>" size="30"></td>
        </tr>
        <tr>
          <td height="25" align="center">简　　介</td>
          <td align="left"><textarea name="f" cols="45" rows="6" id="f"><%=rvf%></textarea></td>
        </tr>
        <tr>
          <td height="30" colspan="2" align="center"><input type="submit" name="Submit" value="提交"></td>
        </tr>
        
        <tr>
          <td height="28" colspan="2" align="center" background="../../Image/bg01.jpg">&nbsp;</td>
        </tr></form>
</table>
</p>
  </center>
</div>

</body>
</html>
<%
else
if ID<>"" then
call hdobj.AddL("Tespec","k",1) 
else
call hdobj.AddL("Tespec","k",0) 
end if
end if

%>
⌨️ 快捷键说明

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