saleykjcasp.asp

本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brower/ Server (浏览器/ 服务器) 并采用C2C (Customer to Customer 即个人——个人)运

<%

SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr

  if request("action")="add" then	'隐藏提交 action 的值如果为 add 
   
        if trim(request("pdtname"))="" then  response.Write("<script>alert('商品名不能为空！');history.back();</script>") 
        if trim(request("pdtowner"))="" then  response.Write("<script>alert('所有者不能为空！');history.back();</script>") 
        if trim(request("pdtdesc"))="" then  response.Write("<script>alert('描述不能为空！');history.back();</script>")
        if trim(request("pdtimage"))="" then  response.Write("<script>alert('图片不能为空！');history.back();</script>")
        if trim(request("pdtoldnew"))="" then  response.Write("<script>alert('新旧程度不能为空！');history.back();</script>") 
        if trim(request("pdtykj"))="" then  response.Write("<script>alert('价格不能为空！');history.back();</script>")
        if trim(request("pdtbuyam"))="" then  response.Write("<script>alert('数量不能为空！');history.back();</script>")
          
	sql="select * from [pykj]"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3	'以写入方式打开
	rs.addnew	'添加新的记录
	rs("pdtname")=trim(request("pdtname"))
	rs("pdtowner")=trim(request("pdtowner"))
	rs("pdtdesc")=trim(request("pdtdesc"))
	rs("pdtimage")=trim(request("pdtimage"))
	rs("pdtoldnew")=trim(request("pdtoldnew"))
	rs("pdtykj")=trim(request("pdtykj"))
	rs("pdtbuyam")=trim(request("pdtbuyam"))
	rs.update
	rs.close
	set rs=nothing
	response.Write("<script>alert('发布成功！');window.location.href='sale.asp';</script>")
end if
%>