📄 index.asp
字号:
<!--#include file="dbconn.asp"-->
<!--#include file="inc/checkchange.inc"-->
<!--#include file="inc/qzf.css"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>管式加热炉工艺设计书</title>
</head>
<body>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><font face="华文新魏" size="7"><b>管式加热炉工艺设计程序</b></font></p>
<p align="center"><font face="宋体">V1.0</font></p>
<form method="POST" action="index.asp" webbot-action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" startspan
U-File="../../_private/form_results.txt" S-Format="TEXT/CSV"
S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot
bot="SaveResults" endspan i-checksum="43374" --><p align="center">请输入设计号：<input type="text" name="Th" size="20"></p>
<p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
<p align="center"> </p>
<p align="center"> </p>
</form>
<%
th=eck(request("th"))
if th ="" then
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql ="select * from th where (th='"&th&"')"
rs.open sql,conn,1,3
if not rs.eof then
Session.Contents("th")=rs("th")%>
<div align="center">
<center>
<table border="0" width="55%">
<tr>
<td width="100%" align="center">
<p align="center">该记录号已经存在！请选择：</td>
</tr>
<tr>
<td width="100%" align="center">
<p align="center"><font color="#000064"></font><a href='index.asp'><font color='#000064'>（1）、重新输入设计号</font></a></p>
</td>
</tr>
<tr>
<td width="100%" align="center">
<p align="center"><a href='mulu.asp'><font color='#000064'>（2）、查阅已有设计书</font></a><font color="#000064"></font></td>
</tr>
</table>
</center>
</div>
<p align="center"> </p>
</body>
</html>
<% Response.End
else
rs.addnew
rs("th")=th
rs.update
Session.Contents("th")=rs("th")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "mulu.asp"
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -