pmcjcasp.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

	sql="select * from [bidpm] where pdtid='"&pdtid&"';"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3	'以写入方式打开
	rs.addnew	'添加新的记录
	rs("userid")=session("userid")
	rs("pdtid")=session("pdtid")
	
	rs("pdtstartpri")=session("pdtstartpri")
	rs("pdtname")=session("pdtname")
	rs("pdtowner")=session("pdtowner")
	rs("pdtend")=session("pdtend")
	rs("pdtdesc")=session("pdtdesc")
	rs("pdtstart")=session("pdtstart")
	rs("pdtadd")=session("pdtadd")
	
	rs("bidtime")=trim(request("bidtime"))
	rs("bidprice")=trim(request("bidprice"))
	rs.update
	rs.close
	set rs=nothing
	response.Write("<script>alert('出价成功,请注意出价!');window.location.href='buypm.asp';</script>")

%>