|

楼主 |
发表于 2011-1-30 11:57:00
|
显示全部楼层
Re:RPG游戏开发日志
2Drpg游戏开发(21)-数据库代码
网站、游戏都要用到数据库,下面发一些控制数据库的代码。
链接数据库
<%
Dim conn
Dim Servername,SqlDatabaseName, SqlPassword, SqlUsername, SqlHostIP
Servername="." 'SQL服务器名 如果是SQL2005 local)\SQLEXPRESS
SqlDatabaseName="数据库名" 'SQL数据库名
SqlUsername="用户名" 'SQL数据库用户名
SqlPassword="用户密码" 'SQL数据库用户密码
'SqlHostIP="主机IP地址" 'SQL主机IP地址
Call OpenConn
Sub OpenConn()
On Error Resume Next
Dim ConnStr
ConnStr="Driver=SQL SERVER;SERVER=" & Servername & ";UID=" & SqlUsername & " WD=" & SqlPassword & ";DATABASE=" & Sqldatabasename
Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString=ConnStr
conn.open
If Err Then
Err.Clear
Set conn=Nothing
Response.Write "数据库连接出错!"
Response.End
End if
End Sub
%>
显示数据
<%
exec="select * from 表名"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%>
<tr>
<td><%=rs("id")%> <%=rs("name")%> </td>
</tr>
<%
rs.movenext
loop
%>
</table>
查询
Dim set
set=request("set")
sql = "select * from 表名 where 字段名 like '%" & set & "%' order by id desc"
删除记录
<%
set rs = server.CreateObject("adodb.recordset")
sql = "delete from 表名 where id ="&request("id")
rs.open sql,conn,3,3
rs.delete
rs.update
%>
添加数据
<%
set rs = server.CreateObject("adodb.recordset")
sql = "select * from 表名"
rs.open sql,conn,1,3
rs.addnew
rs("字段1")=request.Form("数据1")
rs.update
%>
修改数据
<%
set ra=server.CreateObject("adodb.recordset")
sql="select * from 表名 where ID = "&clng(request("id"))
ra.open sql,conn,1,3
If Not ra.EOF Then
Ra("字段1")=request.Form("数据1")
ra.update
end if
ra.close
Response.Write("<script>alert(""修改成功!"")</script>")
end if
%>
虽然是ASP代码,VB一样适用。 |
|