28,391
社区成员
发帖
与我相关
我的任务
分享
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conn/conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>addnew测试</title>
</head>
<body>
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select * from corporation "
rs.open sql,conn,1,3
rs.addnew
rs("user")="222222222222"
rs("name")="3333333333333333"
rs.update
id=rs("id")
response.Write id
response.Write "999999999999"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
Const SqlDatabaseName="123456" 'SQL数据库的名称,zgsgw
Const SqlUsername="123456" 'SQL数据库的登陆名
Const SqlPassword="123456" 'SQL数据库的登陆密码
Const SqlLocalName="localhost" 'SQL数据库所在的服务器名
Const isSession=0 '1表示使用session 验证;0表示使用cookies 验证
Const time_score=180 '后台允许操作期限(分钟)
ConnStr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";"
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.commandtimeout=20
conn.open ConnStr
<%
user="22222222222"
name="3333333333333333"
sql="INSERT INTO [corporation]([user],[name]) VALUES('"&user&"','"&name&"')"
conn.execute(sql)
id=conn.execute("SELECT LAST(id) FROM [corporation]")(0)
response.Write id
response.Write "999999999999"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>