📄 addform.asp
字号:
<%
'这是安全模块，如果客户不是管理员用户，立即重定向到首页.
'这样可以防止某些客户直接访问admin下面的文件。
If Session("usertype")<>"A" Then
Response.Redirect "../index.asp"
End If
%>
<!--#INCLUDE FILE="../odbc_connection2.asp"-->
<html>
<head>
<title>增加成员</title>
<script language="JAVASCRIPT">
function check_Null(){
if (document.form1.name.value==""){
alert("名称不能为空!");
return false;
}
if (document.form1.URL.value==""){
alert("地址不能为空!");
return false;
}
return true;
}
</script>
</head>
<body>
<h2 align="center">添加成员</h2>
<center>
<form method="post" action="" name="form1" onsubmit="javascript: return check_Null();">
<table border="0" width="90%" >
<tr>
<td>网站名称：</td><td><input type="text" name="name" size="20">**(带**的内容必须输入)</td>
</tr><tr>
<td>网站地址：</td><td>http://<input type="text" name="URL" size="20">**</td>
</tr><tr>
<td>网站评分：</td>
<td>
<select name="grade">
<option value="1">1</option>
<option value="2">2</option>
<option value="3" selected>3</option>
<option value="4">4</option>
<option value="5">5</option>
</select>
</td>
</tr><tr>
<td>网站简介：</td><td><textarea name="intro" rows="3" cols="50" wrap="soft"></textarea></td>
</tr>
<table>
<p align="center"><input type="submit" value=" 确 定 ">
</form>
</center>
<%
'这个程序使用了客户端验证，所以只有填写了名称和地址才能提交表单。
'下面这个判断的主要作用是防止第一次打开页面时立即执行其中的语句。它可以确保只有提交表单后才会执行其中的语句。
If Request.Form("name")<>"" Then
'下面定义4个变量，用来获取表单中的值
Dim name,URL,intro,grade
name=Request.Form("name")
URL=Request.Form("URL")
intro=request.Form("intro")
grade=request.Form("grade")
'下面组织Insert语句，先将其分为前后两部分，分别完成
Dim sqla,sqlb,strSql
sqla = "Insert into link(name,URL,submit_date,grade"
sqlb = " Values('" & name & "','" & URL & "',#" & Now() & "#," & grade
If intro<>"" Then
sqla = sqla & ",intro"
sqlb = sqlb & ",'" & intro & "'"
End If
'最后将前后两部分组合成一个完整的Insert语句
strSql = sqla & ") " & sqlb & ")"
'下面执行添加记录的操作
db.Execute(strSql)
'添加记录后返回首页，但是希望返回首页后立即能看到刚添加的记录，所以需要设置有关变量
Session("keyword")=""
Session("field")="name"
Session("sortfield")="submit_date Desc"
Session("page_no")=1
Response.redirect "wwwadmin.asp"
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -