delete.asp

Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明

<%
sfzh=trim(request("sfzh"))
'km=request("km")
'cj=round(CDbl(request("cj")),2)

set conn=server.createobject("adodb.connection")
conn.open "driver={sql server};server=xhxy.;uid=sa;pwd=;database=xhdlxy"

set cmd=server.createobject("adodb.command")
set cmd.activeconnection=conn
'sql="insert into cjb (sfzh,km,cj) values ('"&sfzh&"','"&km&"',"&cj&")"
sql="delete from jbxxb where sfzh='"&sfzh&"'"
'response.write sql
cmd.commandtext=sql
cmd.execute
%>