UC知道asp相关问题，简单，送分（在线等）
来源：百度知道 编辑：UC知道 时间：2024/06/01 15:31:32
相关代码：<%
if request("act")="save" then
dim pname,number1,tprice
pname = request("productname")
number1 =request("number1")
tprice = request("tprice")
dim sql,sql1,sql2
sql1="select * from productname where name='"&pname&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql1,conn,1,1
if not rs.eof then
sql = "update productname set number1 = number1 - "&number1&",tprice=tprice-"&tprice&" where name='"&pname&"'"
else
sql = "insert into productname (name,number1,tprice) values ('"&pname&"','"&number1&"','"&tprice&"')"
end if
sql2="select * from productname"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,3
sql2 = "insert into x
if request("act")="save" then
dim pname,number1,tprice
pname = request("productname")
number1 =request("number1")
tprice = request("tprice")
dim sql,sql1,sql2
sql1="select * from productname where name='"&pname&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql1,conn,1,1
if not rs.eof then
sql = "update productname set number1 = number1 - "&number1&",tprice=tprice-"&tprice&" where name='"&pname&"'"
else
sql = "insert into productname (name,number1,tprice) values ('"&pname&"','"&number1&"','"&tprice&"')"
end if
sql2="select * from productname"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,3
sql2 = "insert into x
如果你的是sql server 数据库的话就建一字段并且类型为datetime 默认值为getdate(),这样当录入数据的时候，就会自动生成当时的时间。如果是access的话默认值就是now()
if request.form("表单项目名字")="" then
response.write("不能为空")
end if
或者用javascript
function fTrim(str)
{
return str.replace(/(^\s*)|(\s*$)/g, "");
}
function check()
{
var str=document.getElementById("f_user").value
if(/^[A-Za-z\1-9\u4E00-\u9600\_\＿]+$/.test(str)==false)
{
alert("用户名有非法字符！");
document.getElementById("f_user").focus()
return false;
}
if(fTrim(form1.f_user.value)!=form1.f_user.value){
alert("用户名不能有空格!");
document.form1.f_user.focus();
return false;
}
else if(fTrim(form1.f_code.value)!=form1.f_code.value)
{
alert("密码不能有空格！")
document.form1.f_code.focus();