欢迎光临
我们一直在努力

ASP与SQL数据库连接- –

'数据库参数设置
'-----------------------------------------------------------------------------------------------
strSQLServerName = "localhost" '服务器名称或地址
strSQLDBUserName = "sa" '数据库帐号
strSQLDBPassword = "" '数据库密码
strSQLDBName = "dbname" '数据库名称
'-----------------------------------------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";" //2行写在一行上
conn.Open strCon

这样就建立了与SQL的连接.

'----------------------------------------------------------------------------------------
'从表里读出数据并显示
set RS=conn.Execute("select * from asp")
do until RS.EOF
<%= RS<"字段名">%>
............
Loop
conn.Close '关闭连接

'----------------------------------------------------------------
'保存提交的数据
strLoginID = Replace(Trim(Request("LoginID")),"'","''")
strName = Replace(Trim(Request("name")),"'","''")
strPhone = Replace(Trim(Request("phone")),"'","''")
if Request.Form("Sex1")=false then '这里好像只能用false来判断,(用true判断不起作 用,strSex总是0)
strSex = 0
else
strSex = 1
end if

'接下来向表里添加记录
strSQL="insert into asp (LoginID,Name,Phone,Sex) values ('"&strLoginID&"','"&strName&"','"&strPhone&"',"&strSex&")"
conn.Execute strSQL '注意字符串的拼凑,字符类型的要在sql语句里加单引号

'根据行数动态改变行的颜色
dim rowCount = 0
'接下来循环输出即可
rowCount=rowCount+1
if rowCount mod 2=0 then
Response.Write("")
else
Response.Write("")
end if

赞(0) 打赏
未经允许不得转载:刘旭的人个博客 » ASP与SQL数据库连接- –
分享到: 更多 (0)
标签:

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
  • Q Q(选填)

QQ :13945502电话:13913571631

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

×
订阅图标按钮