createjs.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 65 行

ASP
65
字号
<%@ Language=VBScript %>
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
</head>

<body>

<p> </p>
<form method="POST" action="CreateJS2.asp">
<table border="0" width="588" align=center>
<tr>
<td colspan="2" width="588"><b>增加新闻</b></td>
</tr>
<tr>
<td colspan="2" width="588">
<hr size="1">
</td>
</tr>
<tr>
<td colspan=2>请输入首页需要的新闻条数:<input type=text name=NewsNum size=7></td>
</tr>
<tr>
<td width="120">       .</td>
<td width="468"></td>
</tr>
<tr>
<td colspan=2>请选择生成的文件的类型?</td>
</tr>
<tr>
<td width="120"></td>
<td width="468"><input type="radio" value="ASP" checked name="FileType">ASP  <input type="radio" value="JS" name="FileType">JS</td>
</tr>
<tr>
<td width="120"></td>
<td width="468"></td>
</tr>

<tr>
<td width="588" colspan=2><hr size=1></td>
</tr>
<tr>
<td colspan="2" width="588" align="center"><input type="submit" value="  开始创建>>  " name="B1"></td>
</tr>
</table>
</form>
</body>

</html>
<%

conn.close
set conn=nothing

%>

⌨️ 快捷键说明

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