📄 usesmanage.asp
字号:
<%@ LANGUAGE="VBScript"%>
<% response.buffer=true %>
<%const title="新增用处"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=forum.css>
</head>
<body topmargin="0" onload=this.document.input.usesname.focus();>
<!--#include file=myPrg.asp-->
<!--#include file=opendb.inc-->
<%
CheckLogin
Showtitle(title)
getStorage(session("storage"))
%>
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if request.form("usesname")<>"" then
sql="select * from uses where uses_name='"&request.form("usesname")&"'"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("uses_name")=request.form("usesname")
rs("memo")=request.form("memo")
rs.update
ShowSuccess("数据已经成功保存！")
else
showerror("该用处已经存在，请重新输入")
end if
rs.close
else
showerror("请输入用处名称！")
end if
else
%>
<form action="usesmanage.asp" method="POST" name="input">
<p align=center><font color=red>请在以下的表格中填入相关的数据</font>
<p>
<table align=center border=0>
<tr>
<td nowrap><font color=blue>用处名称：</td>
<td><input class=smallInput type=textbox name=usesname value=''>**</td>
</tr>
<tr>
<td valign="top"><font color=blue>说明一下：</td>
<td><textarea class=smallarea name=memo rows=5 cols=40></textarea></td>
</tr>
<tr>
<td><font color=blue>已有用处：</td>
<td><%Showuses%></td>
</tr>
<tr>
<td>
<td><br><input class=buttonface type=submit name=ok value=确定>
<input class=buttonface type=reset name=reset value=复原>
<input class=buttonface type=button name=retu value=返回 onclick=history.go(-1)>
</tr>
</table>
</form>
<%end if%>
<!--#include file=copyright.asp-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -