代码：
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!<a href=javascript:history.go(-1)>try again</a>":response.end
age=clng(age)
end if '********************************************************************
' 与AccessDB相关的连接信息
' 可以参照它建立您的数据库连接
'********************************************************************
Dim conn,rs,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
dbpath=Server.MapPath("rwdata/db_test_com.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}DBQ="&dbpath
'********************************************************************
'********************************************************************
dim strsql
'********************************************************************
' 读数据库相关 *** 作
sub readdb()
strsql="select * from test"
rs.open strsql,conn,1,1
if rs.EOF then response.write "no record at all":exit sub
response.write "<table border=1>"
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"
next
response.write "</tr>"
while not rs.EOF
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td>"&rs.Fields(i).Value&"</td>"
next
response.write "</tr>"
rs.MoveNext
wend
response.write "</table>"
rs.Close
end sub
'********************************************************************
'********************************************************************
' 写数据库相关
sub insertdata()
strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')"
rs.Open strsql,conn,1,3
end sub
'********************************************************************
if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
'********************************************************************
' 释放数据库连接对象
set rs=nothing
set conn=nothing
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<script language=javascript>
function clickit(flag){
var form1=document.form2
form1.text4.value=flag
if (flag==1){
if (form1.text1.value==""){
alert("name cant empty!")
return false
}
if (form1.text2.value==""){
alert("age cant empty!")
return false
}
if (form1.text3.value==""){
alert("addr cant empty!")
return false
}
}
form1.submit()
return true
}
</script>
</HEAD>
<BODY>
<form method=post name=form2>
name:<INPUT type="text" id=text1 name=text1 size=12>
age:<INPUT type="text" id=text2 name=text2 size=12>
city:<INPUT type="text" id=text3 name=text3 size=12><br>
<INPUT type="hidden" id=text4 name=text4>
<INPUT type="button" value="write" id=button1 name=button1 onclick="clickit(1)">
<INPUT type="button" value="read" id=button2 name=button2 onclick="clickit(2)">
</form>
</BODY>
</HTML>
如何使用VBScript访问ORACLE数据库并查询一张表不知道你用的什么数据库，权且当作SQL Server
private void showdata()
{
try
{
string selectsql = @"select * from [user]"//select语句，修改下，应该不难吧
SqlCommand cmd = new SqlCommand(selectsql, conn)//conn就是创建的SqlConnection实例，你如果用到数据库，应该有创建
cmd.CommandType = CommandType.Text
string info = String.Empty//表结果
SqlDataReader odr = cmd.ExecuteReader()
while(odr.Read())
{
info = odr[0].ToString() + " " + odr[1].ToString() + "\n"
//具体每行有几列数据，就添加到n-1，0是第一列，你应该也能修改，可以在个数据之间加个空格，以及行末加个回车，自己改。。。
}
infoTxt.Text = info//将info显示到你说的文本框中，infoTxt为文本框的名称，你应该也可以看懂
}
catch (Exception ex)
{
Console.WriteLine(ex.Message)
}
}
//将函数体部分放入到你的按钮click事件中就可以了
你这个ConnStr = "User ID = " &SqlUsername &"Password = " &SqlPassword &"Initial Catalog = " &这种方式需要配置数据源的吧？？？这是ODBC的连接方式，要在控制面板--管理工具--ODBC新增个SQL 的 数据源才行呢。 ADD---SQL SERVER----一步一步填上啊。这种连接方式过时了。
下面的
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0Data Source = " &Server.MapPath(db)
你的Server.MapPath地方有这个存在的文件么？
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）