ASP从网页调用数据插入数据库_工具

set rs=servercreateobject("adodbrecordset")

sql="select from admin"

rsopen sql,conn,1,3

'添加一个管理员帐号到数据库

rsaddnew

rs("UserName")=UserName

rs("PassWord")=password

rsupdate

rsclose

set rs=nothing

查看数据库后，发现只有数值类型的列显示为0，其他空白。。。怎么回事啊！！

---------------------表示没有任何数据

查看数据库字段类型

查看字段大小

02asp页面

<html>

<head><title>采购票据单</title></head>

<body>

<p align="center"><font face="微软雅黑" size="5"><b>采购票据单</b></font></p><hr>

<tr>

<option value="政府缴款书">政府缴款书</option>

</select>

</td>

</select>

</td>

</tr>

</table><br>

<tr>

</tr>

<tr>

<td bgcolor="#FFFFFF" width="40%" align="center">发票金额合计</td>

</tr>

<tr>

</select>

</td>

</tr>

<tr>

</tr>

</table><br>

</form>

dim i,j,k,l,m,n

i=requestform("type")

j=requestform("copy")

k=requestform("content")

l=requestform("total")

m=requestform("catergory")

n=requestform("Detail")

set adocon=ServerCreateobject("adodbconnection")

adoconopen"provider=SQLOLEDB1;Data Source=JEFF;"& _

"user ID=sa;Password=xjhlove3;"& _

"inital Catalog=Jeff1"

adoconExecute"insert into Jeff1dbojeff values('"&i&"','"&j&"','"&k&"','"&l&"','"&m&"','"&n&"')"

adoconClose

</body>

</html>

dim conn,db

dim connstr

db="dbmdb" ' access数据库文件路径

connstr="Provider=MicrosoftJetOLEDB40;Data Source="&serverMapPath(""&db&"")&";Persist Security Info=False;"

set conn=servercreateobject("ADODBCONNECTION")

'连接数据库

connopen connstr 'open datebase

'数据库结构

'文件名dbmdb

'表名admin

'字段id，自动编号

'字段username，文本

'字段userpass，文本

' 增

set Rs=servercreateobject("adodbrecordset")

Sql="select from admin"

Rsopen Sql,conn,1,3

Rsaddnew

Rs("username")="用户名"

Rs("userpass")="用户密码"

Rsupdate

Rsclose

set Rs=nothing

responseWrite "<script language='javascript'>alert('管理员增加成功!');'</script>"

' 删

s_id=1 '假设有个用户数据的id为1

Sql="delete from admin where id="&s_id&""

set Rs=serverCreateObject("ADODBrecordset")

rsopen Sql,conn,1,3

responseWrite("<script>alert('帐号删除成功！');</script>")

rsclose

set Rs=nothing

' 改

s_id=1 '假设有个用户数据的id为1

set Rs=servercreateobject("adodbrecordset")

Sql="select from admin where id="&s_id&""

Rsopen Sql,conn,1,3

if Rseof and Rsbof then

Rsclose

set Rs=nothing

responseWrite("<script language='javascript'>alert('此用户不存在!');historyback();</script>")

else

Rs("Password")="新密码"

Rsupdate

Rsclose

set Rs=nothing

responseWrite ("<script language='javascript'>alert('密码修改成功!');</script>")

End If

' 查单个

s_username="admin" '假设有个用户名为admin的用户数据

set Rs=servercreateobject("adodbrecordset")

Sql="select from admin where username='"&s_username&"'"

Rsopen Sql,conn,1,3

if Rseof and Rsbof then

Rsclose

set Rs=nothing

responseWrite("<script language='javascript'>alert('此用户不存在!');historyback();</script>")

else

s_name=Rs("username")

s_pass=Rs("userpass")

Rsclose

set Rs=nothing

' 输出查询到的信息

responseWrite ("<script language='javascript'>alert('你查询的用户名"&s_name&"的密码为："&s_pass&"');</script>")

End If

' 查列表

set Rs=serverCreateObject("Adodbrecordset")

sql="select from admin order by id desc"

Rsopen sql,conn,1,1

if not Rseof then

' 循环输出查询到的信息

do while not Rseof

responseWrite "id："&Rs("id")&",用户名："&Rs("username")&",密码："&Rs("userpass")&"<br />"

Rsmovenext

loop

end if

Rsclose

set Rs=nothing

' 使用完数据库后要关闭连接资源

connclose

set conn=nothing

'字符串转换成二进制

function StrToBin(str)

dim curChr, curAsc, low, high

dim i

for i=1 To Len(str)

curChr = Mid(str, i, 1)

curAsc = Asc(curChr)

'asc对中文字符求出来的值可能为负数，

'加上65536就可求出它的无符号数值

'-1在机器内是用补码表示的0xffff,

'其无符号值为65535,65535=-1+65536

'其他负数依次类推。

if curAsc < 0 then

curAsc = curAsc + 65535

end if

'对中文的处理：把双字节低位和高位分开

if curAsc > 255 then

low = Left(Hex(Asc(curChr)), 2)

high = Right(Hex(Asc(curChr)), 2)

StrToBin = StrToBin & ChrB("&H" & low) & ChrB("&H" & high)

else

StrToBin = StrToBin & ChrB(AscB(CurChr))

end If

end function

'二进制转换成字符串

function BinToStr(binStr)

if IsNull(binStr) then

BinToStr = ""

exit function

end if

dim newStr, chnFlag

dim i, c

newStr = ""

chnFlag = true

for i=1 To LenB(binStr)

if chnFlag then

c = MidB(BinStr, i, 1)

if AscB(c) > 127 then

'AscW 会把二进制的中文双字节字符高位和低位反转

'所以 MidB(binStr,i+1,1)&c 表达式中，c 在后面

newStr = newStr & Chr(AscW(MidB(binStr,i+1,1)&c))

chnFlag = false

else

newStr = newStr & Chr(AscB(c)) '这里用的是 ASCB 不是 ASCW

end If

else

chnFlag = true

end If

BinToStr = newStr

end function

rsaddnew

rs("items")= StrToBin(code)

rsupdate

如果出错。请确定items字段是否二进制类型

以上就是关于ASP从网页调用数据插入数据库全部的内容，包括:ASP从网页调用数据插入数据库、asp页面数据库插入、asp连接sql数据库的增删改查完整代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/sjk/9726328.html

ASP从网页调用数据插入数据库

发表评论

评论列表（0条）

ASP从网页调用数据 插入数据库

发表评论

评论列表（0条）

ASP从网页调用数据插入数据库