我写可一个前台网页 Untitled-1.html
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>测试1</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<label>
<input type="text" name="textfield" />
</label>
帐户
</form>
<form id="form2" name="form2" method="post" action="">
<label>
<input type="text" name="textfield2" />
</label>
密码
</form>
<p><label>
<input type="button" onclick="return Login()" name="button" id="button" value="登录" />
</label> </p>
</body>
</html>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
我要使用什么最简单的方法把表单的内容保存到网页上，或发到油箱也可以。。我是菜鸟... 听人说ASP，PHP什么的..谁能帮我写下或是指点下..
感激不尽...
我每天都来..别乱答....希望你家父母长寿.希望你儿子不是个残疾人吧..
我可以利用ASP..也可以用其他办法...关键是输入的东西 可以在另一个页面或PHP文件里保存下来...
先说明一下，表面上看上去是保存到了网站（页）上，实际上是保存到数据库的。当然也可以保存到文本文件。
还有你说的保存下来应该是注册页面，像你写的是登陆，应该只是在数据库中查询用户名和密码。看来你要把这些问题弄表楚还有得学。与这些东西相关的要学的多了，你现在还处在连描述你的问题都不会描述的层次。（所以你不要间接的骂人，别人看不懂你问什么是正常的，希望你努力学习，加油！）
给你一个完整健壮模块化的可以直接用于网站的ASP代码怎么样，自己慢慢看，这可是我寒假时在家敲的。（有比较完整的安全验证机制，只有这样的代码才敢用来做网站，健壮模块化，便于以后修改，效率更高），要装IIS才可以运行哦，放WWWROOT下（或建虚拟目录）用 http://localhost/login.html 形式才能正确执行。
我测试过了，没问题的，有详尽的注释，相信你看得懂（如果你学过一点BASIC或C语言的话，看不懂也没关系，可以直接拿来用！）
希望我的辛苦没白费！
注意，连接的是MS SQL数据库，如果你用的ACCESS MDB只要修改最后一个文件的连接数据库部分就行了，代码在网上很容易找到）（IIS和数据库的一些设置没设好可能无法执行哦，特别是IIS在一些精简版的系统上要么装不上，要么装上了用不了（要手动修改组件密码与IIS密码同步等，很麻烦，此时可换一个可以替代IIS的软件，网上搜。XP只能装IIS 5.1及以下版本）
这个是登陆模块，按你问题的代码来的，还过按你说的保存什么的，应该是要注册模块，如果需要给我发消息，留下Email。还有将表单内容发到邮箱，可以用ASP里的Jmail发信（在网上搜 ASP Jmail发信 就能找到代码）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
login.htm
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>用户登录</title>
<script language="javascript" type="text/javascript"><!--
function validateLogin()
{
var strUserName=document.frmLogin.txtUserName.value;
var strPassword=document.frmLogin.txtPassword.value;
var primeInUserName=document.frmLogin.txtUserName.value.indexOf( "'");
var primeInPassword=document.frmLogin.txtPassword.value.indexOf( "'");
if( strUserName == "" )
{//也可用单引号
alert( "出错啦！您还没输入用户名呢!");
//可以直接return false,最后不要return;也可先将false赋给一个变量,在最后一次return,在此前还可设定一个输入成功的提示
return false;
}
if( strPassword == "" )
{
alert( "出错啦！您还没输入密码呢!");
return false;
}
if(primeInUserName != - 1){
alert("抱歉!用户名中不能使用撇号!");
return false;
}
if(primeInPassword != - 1){
alert("抱歉 ! 密码中不能使用撇号 ! ");
return false;
}
}
//-->
</script>
</head>
<body>
<form method="post" name="frmLogin" action="verifyID.asp" onsubmit="javascript:return validateLogin();">
<table align="center" bgcolor="#cccccc" width="240" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td width="82"><div align="right">用户名：</div></td>
<td colspan="2"><input name="txtUserName" size="16" maxlength="16" /></td>
</tr>
<tr>
<td><div align="right">密码：</div></td>
<td colspan="2"><input name="txtPassword" type="password" size="16" maxlength="16" /></td>
</tr>
<tr>
<td> </td>
<td><input name="Submit" type="submit" value="登录" /></td>
<td><input name="Reset" type="reset" value="重填" /></td>
</tr>
</table>
</form>
</body>
</html>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
verifyID.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="GeneralTools.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>登录</title>
</head>
<body>
<div align="center">
<%
dim strUserName
dim strPassword
strUserName=Request.Form("txtUserName")
strPassword=Request.Form("txtPassword")
call tackleEmpty(strUserName)
call tackleEmpty(strPassword)
call tacklePrime(strUserName)
call tacklePrime(strPassword)
call tackleOverLen(strUserName,16)
call tackleOverLen(strPassword,16)
call openDB()
sql="select USER_NAME from UserInfo where(USER_NAME='"&strUserName&"'and PASSWORD='"&strPassword&"')"
rs.open sql.coon,1,1
if not rs.eof then
session("UserName")=strUserName
showMsg("登录成功!")
else
showMsg("登录失败!")
end if
call closeDB()
%>
</div>
</body>
</html>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GeneralTools.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
dim sql,rs,conn,webURL
webURL="http://"&Request.ServerVariables("SERVER_NAME")&"/"
'简单的出错处理
on error resume next
sub openDB()
set conn=server.CreateObject("ADODB.Connection")
conn.open"Driver=SQL Server;Server=MICROSOF-9050D2;Database=MyAsp;Uid=sa;Pwd=123456"
set rs=server.CreateObject("ADODB.Recordset")
end sub
sub closeDB()
if IsObject(conn) then
set rs=nothing
conn.close
set conn=nothing
end if
end sub
'处理空字符串
sub tackleEmpty(strItem)
strItem=lTrim(strItem)
strItem=rTrim(strItem)
if strItem=""then
call closeDB()
response.Redirect webURL
end if
end sub
'处理撇号
sub tacklePrime(strItem)
if inStr("'",strItem)=1 then
call closeDB()
response.Redirect webURL
end if
end sub
'处理超长
sub tackleOverLen(strItem,intLen)
if len(strItem)>intLen then
call closeDB()
response.Redirect webURL
end if
end sub
'显示消息
sub showMsg(strItem)
response.Write "<div align='center'>"
response.Write "<table border='0' width='100%' height='75' cellspacing=0 cellpadding=0>"
response.Write "<tr>"
response.Write "<td align='center' valign='center'>"
response.Write "<font size=3 color=#FF0000>"
response.Write strItem
response.Write "<a href='javaScript:history.back()'><<"
response.Write "返回</a>"
response.Write "</font>"
response.Write "</td></tr></table>"
response.Write "</div>"
call closeDB()
response.End
end sub
%>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
还有你说的保存下来应该是注册页面，像你写的是登陆，应该只是在数据库中查询用户名和密码。看来你要把这些问题弄表楚还有得学。与这些东西相关的要学的多了，你现在还处在连描述你的问题都不会描述的层次。（所以你不要间接的骂人，别人看不懂你问什么是正常的，希望你努力学习，加油！）
给你一个完整健壮模块化的可以直接用于网站的ASP代码怎么样，自己慢慢看，这可是我寒假时在家敲的。（有比较完整的安全验证机制，只有这样的代码才敢用来做网站，健壮模块化，便于以后修改，效率更高），要装IIS才可以运行哦，放WWWROOT下（或建虚拟目录）用 http://localhost/login.html 形式才能正确执行。
我测试过了，没问题的，有详尽的注释，相信你看得懂（如果你学过一点BASIC或C语言的话，看不懂也没关系，可以直接拿来用！）
希望我的辛苦没白费！
注意，连接的是MS SQL数据库，如果你用的ACCESS MDB只要修改最后一个文件的连接数据库部分就行了，代码在网上很容易找到）（IIS和数据库的一些设置没设好可能无法执行哦，特别是IIS在一些精简版的系统上要么装不上，要么装上了用不了（要手动修改组件密码与IIS密码同步等，很麻烦，此时可换一个可以替代IIS的软件，网上搜。XP只能装IIS 5.1及以下版本）
这个是登陆模块，按你问题的代码来的，还过按你说的保存什么的，应该是要注册模块，如果需要给我发消息，留下Email。还有将表单内容发到邮箱，可以用ASP里的Jmail发信（在网上搜 ASP Jmail发信 就能找到代码）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
login.htm
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>用户登录</title>
<script language="javascript" type="text/javascript"><!--
function validateLogin()
{
var strUserName=document.frmLogin.txtUserName.value;
var strPassword=document.frmLogin.txtPassword.value;
var primeInUserName=document.frmLogin.txtUserName.value.indexOf( "'");
var primeInPassword=document.frmLogin.txtPassword.value.indexOf( "'");
if( strUserName == "" )
{//也可用单引号
alert( "出错啦！您还没输入用户名呢!");
//可以直接return false,最后不要return;也可先将false赋给一个变量,在最后一次return,在此前还可设定一个输入成功的提示
return false;
}
if( strPassword == "" )
{
alert( "出错啦！您还没输入密码呢!");
return false;
}
if(primeInUserName != - 1){
alert("抱歉!用户名中不能使用撇号!");
return false;
}
if(primeInPassword != - 1){
alert("抱歉 ! 密码中不能使用撇号 ! ");
return false;
}
}
//-->
</script>
</head>
<body>
<form method="post" name="frmLogin" action="verifyID.asp" onsubmit="javascript:return validateLogin();">
<table align="center" bgcolor="#cccccc" width="240" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td width="82"><div align="right">用户名：</div></td>
<td colspan="2"><input name="txtUserName" size="16" maxlength="16" /></td>
</tr>
<tr>
<td><div align="right">密码：</div></td>
<td colspan="2"><input name="txtPassword" type="password" size="16" maxlength="16" /></td>
</tr>
<tr>
<td> </td>
<td><input name="Submit" type="submit" value="登录" /></td>
<td><input name="Reset" type="reset" value="重填" /></td>
</tr>
</table>
</form>
</body>
</html>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
verifyID.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="GeneralTools.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>登录</title>
</head>
<body>
<div align="center">
<%
dim strUserName
dim strPassword
strUserName=Request.Form("txtUserName")
strPassword=Request.Form("txtPassword")
call tackleEmpty(strUserName)
call tackleEmpty(strPassword)
call tacklePrime(strUserName)
call tacklePrime(strPassword)
call tackleOverLen(strUserName,16)
call tackleOverLen(strPassword,16)
call openDB()
sql="select USER_NAME from UserInfo where(USER_NAME='"&strUserName&"'and PASSWORD='"&strPassword&"')"
rs.open sql.coon,1,1
if not rs.eof then
session("UserName")=strUserName
showMsg("登录成功!")
else
showMsg("登录失败!")
end if
call closeDB()
%>
</div>
</body>
</html>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GeneralTools.asp
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<%
dim sql,rs,conn,webURL
webURL="http://"&Request.ServerVariables("SERVER_NAME")&"/"
'简单的出错处理
on error resume next
sub openDB()
set conn=server.CreateObject("ADODB.Connection")
conn.open"Driver=SQL Server;Server=MICROSOF-9050D2;Database=MyAsp;Uid=sa;Pwd=123456"
set rs=server.CreateObject("ADODB.Recordset")
end sub
sub closeDB()
if IsObject(conn) then
set rs=nothing
conn.close
set conn=nothing
end if
end sub
'处理空字符串
sub tackleEmpty(strItem)
strItem=lTrim(strItem)
strItem=rTrim(strItem)
if strItem=""then
call closeDB()
response.Redirect webURL
end if
end sub
'处理撇号
sub tacklePrime(strItem)
if inStr("'",strItem)=1 then
call closeDB()
response.Redirect webURL
end if
end sub
'处理超长
sub tackleOverLen(strItem,intLen)
if len(strItem)>intLen then
call closeDB()
response.Redirect webURL
end if
end sub
'显示消息
sub showMsg(strItem)
response.Write "<div align='center'>"
response.Write "<table border='0' width='100%' height='75' cellspacing=0 cellpadding=0>"
response.Write "<tr>"
response.Write "<td align='center' valign='center'>"
response.Write "<font size=3 color=#FF0000>"
response.Write strItem
response.Write "<a href='javaScript:history.back()'><<"
response.Write "返回</a>"
response.Write "</font>"
response.Write "</td></tr></table>"
response.Write "</div>"
call closeDB()
response.End
end sub
%>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-03-18
1、你直接把写这些代码保存为.htm文件即可；
2、或者把下面的代码，放在你网页需要该功能的地方：
<form id="form1" name="form1" method="post" action="">
<label>
<input type="text" name="textfield" />
</label>
帐户
</form>
<form id="form2" name="form2" method="post" action="">
<label>
<input type="text" name="textfield2" />
</label>
密码
</form>
<p><label>
<input type="button" onclick="return Login()" name="button" id="button" value="登录" />
</label> </p>本回答被网友采纳
2、或者把下面的代码，放在你网页需要该功能的地方：
<form id="form1" name="form1" method="post" action="">
<label>
<input type="text" name="textfield" />
</label>
帐户
</form>
<form id="form2" name="form2" method="post" action="">
<label>
<input type="text" name="textfield2" />
</label>
密码
</form>
<p><label>
<input type="button" onclick="return Login()" name="button" id="button" value="登录" />
</label> </p>本回答被网友采纳
第2个回答 2009-03-18
把这些代码直接粘贴到网页中就可以了，如果想在别一个页面实现效果需要有一个数据库接收输入的信息才行
第3个回答 2009-03-18
复制 粘贴 或文件下的另存为
第4个回答 2009-03-18
这么多都放在网页地址哈！
