pmpxgcasp.asp

来自「本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brow」· ASP 代码 · 共 28 行

<%
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 [ppm] where pdtid='"&session("pdtid")&"';"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3	'以写入方式打开
	
	rs("pdtname")=trim(request("pdtname"))
	rs("pdtowner")=trim(request("pdtowner"))
	rs("pdtdesc")=trim(request("pdtdesc"))
	rs("pdtimage")=trim(request("pdtimage"))
	rs("pdtstart")=trim(request("pdtstart"))
	rs("pdtend")=trim(request("pdtend"))
	rs("pdtstartpri")=trim(request("pdtstartpri"))
	rs("pdtadd")=trim(request("pdtadd"))
    rs("pdtoldnew")=trim(request("pdtoldnew"))
	rs.update
	rs.close
	set rs=nothing
	response.Write("<script>alert('修改成功！');window.location.href='mypsp.asp';</script>")

%>