代码　看看　　怎么不能插入数据库呢？

mgan 2006-06-04 03:35:57
<!--#Include File="Connection.Asp"-->
<!--#Include File="JaInc/JaZone_Cls.Asp"-->
<!--#Include File="JaInc/Ja_MD5.Asp"-->
<%
Dim JaZ,C,flyN,B,cur
Set JaZ = New JaZone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "23638564"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>")
flyN = split(Trim(C(2)),"|")
If Cint(Trim(C(1)))<>0 Then
cur = "CURSOR:url('cur/"&C(1)&".ani');"
Else
cur = ""
End If
%>

<%
Dim JaCheckID,JaUID
Dim Jauserna,Japwd,Jazonena,Jainter,Jamemo
Dim Jayue,Janian,Jari,Jasex,Jaxue,Jaxin,JaAge
Dim JaBorn
Dim JaUser
Dim JaInSQL
Set JaUser = New JaZone
Jauserna = JaUser.JaKillStr(Request.Form("Jauserna"))
Japwd = MD5(Request.Form("Japwd"),"long")
Jazonena = Trim(Request.Form("Jazone"))
Jainter = Trim(Request.Form("Jainter"))

Janian = Trim(Request.Form("Janian"))
Jayue = Trim(Request.Form("Jayue"))
Jari = Trim(Request.Form("Jari"))
JaAge = Cint(year(date())) - Cint(Janian)
JaBorn = Janian & "-" & Jayue & "-" & Jari

Jasex = Trim(Request.Form("Jasex"))
Jaxue = Trim(Request.Form("Jaxue"))
Jaxin = Trim(Request.Form("Jaxin"))
Jamemo = Trim(Request.Form("content"))

Dim ch
Set ch = Conn.Execute("Select * From JaUser Where JaUname='"&Jauserna&"' ")
If ch.Eof Then
JaUID = JaUser.JaUserID()
JaCheckID = JaUser.JaUserAdd(JaUID,Jauserna,Japwd,Jazonena,JaAge,JaBorn,Jasex,Jainter,Jaxue,Jaxin,Jamemo)
JaUser.JaInsert "JaClass","(JaUid,JaSun,JaBuy,JaWat)VALUES('"&JaUID&"',0,0,0)"
JaInSQL = "(JaBgSet,JaCursorSet,JaFlySet,JaCss,JaUid,JaStyle,JaSet) Values(0,0,'0',2,'"& JaUID &"','sky',0)"
JaUser.JaInsert "JaFaceSet",JaInSQL
Else
Response.Write "<script language=javascript>alert('该用户已存在,请重新填写!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
Set JsUser=Nothing
%>
<%=JaUser.JaInsert%>
<html>
<head>
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JaZone</title>
<link type="text/css" rel="stylesheet" href="Style/<%=Trim(C(5))%>/css.css">
</head>
<script>
function showleft(th)
{
if (th.style.display == "none")
{
eval("th.style.display=\"\";");
document.getElementById("sc").src="Style/<%=Trim(C(5))%>/bt_mline_on.gif"
}
else
{
eval("th.style.display=\"none\";");
document.getElementById("sc").src="Style/<%=Trim(C(5))%>/bt_mline_off.gif"
}
}
</script>
<body leftmargin="2" topmargin="2" style="background-color:transparent;<%=cur%>" text="#cccccc" link="#cccccc" vlink="#cccccc" alink="#cccccc">
<table width="615" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="7" align="left" >
<div align="right"><img src="Style/<%=Trim(C(5))%>/t_t_l.gif" width="7"></div></td>
<td width="599" background="Style/<%=Trim(C(5))%>/t_t_m.gif"><font color="#6699CC" size="2"><strong>
</strong></font>
<%if Trim(C(5))="sky" Then%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" style="cursor: hand;">
<tr>
<td width="2%"><img src="Style/<%=Trim(C(5))%>/icon_01.gif"></td>
<td width="88%"><strong class="datet">注 册</strong></td>
<td width="10%"><img src="Style/<%=Trim(C(5))%>/more.gif"></td>
</tr>
</table>
<%End If%>
</td>
<td width="7" align="right" >
<div align="left"><img src="Style/<%=Trim(C(5))%>/t_t_r.gif" width="7" border="0"></div></td>
</tr>
<tr>
<td background="Style/<%=Trim(C(5))%>/t_m_l.gif"> </td>
<td width="599" rowspan="2"> <div align="center">
<%if Trim(C(5))="plady" Then%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="cursor: hand;">
<tr>
<td width="2%"><img src="Style/<%=Trim(C(5))%>/icon_01.gif"></td>
<td width="88%"><strong class="datet">注 册</strong></td>
<td width="10%"><img src="Style/<%=Trim(C(5))%>/more.gif"></td>
</tr>
</table>
<%End If%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="word-break:break-all ;word-wrap: break-all;">
<tr align="center">
<td colspan="2"><table width="99%" height="16" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="599" height="10" background="Style/<%=Trim(C(5))%>/titleback.gif"> </td>
</tr>
</table>

</td>
</tr>
</table>
<br>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title3"><b>·新用户注册</b> </td>
</tr>
</table>
<table width="90%" border="0" cellspacing="1" cellpadding="0" class="out">
<tr>
<td width="50%"> <table border="0" cellspacing="1" cellpadding="2" width="100%">
<tr>
<td class="backf" width="30%">你的登陆号码是：<%=JaUID%></td>
</tr>
</table></tr>
</table>
<br>
</div></td>
<td width="7" background="Style/<%=Trim(C(5))%>/t_m_r.gif">
<div align="left"></div></td>
</tr>
<tr>
<td background="Style/<%=Trim(C(5))%>/t_m_l.gif"></td>
<td background="Style/<%=Trim(C(5))%>/t_m_r.gif">
<div align="left"></div></td>
</tr>
<tr>
<td height="7"><img src="Style/<%=Trim(C(5))%>/t_d_l.gif" width="7" height="7"></td>
<td width="599" height="7" background="Style/<%=Trim(C(5))%>/t_d_m.gif"></td>
<td height="7"><img src="Style/<%=Trim(C(5))%>/t_d_r.gif" width="7" height="7"></td>
</tr>
</table>
</body>
</html>
...全文
205 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
mgan 2006-06-14
  • 打赏
  • 举报
 回复
OK了
zhangjingcheng 2006-06-05
  • 打赏
  • 举报
 回复
好常的代码啊！
在IE里面设置显示好友HTTP错误信息
mgan 2006-06-05
  • 打赏
  • 举报
 回复
汗一个
mgan 2006-06-04
  • 打赏
  • 举报
 回复
应该不是这个原因
veking 2006-06-04
  • 打赏
  • 举报
 回复
把On Error Resume Next

去掉，看看报错吗
mgan 2006-06-04
  • 打赏
  • 举报
 回复
不报错的　　就是不能进行数据库的插入
mgan 2006-06-04
  • 打赏
  • 举报
 回复
'----------------------------------------------------------------------------


Function JaKillStr(str) '过滤非法字符函数
dim tempstr
if str="" then exit function
tempstr=replace(str,chr(34),"") ' "
tempstr=replace(tempstr,chr(39),"") ' '
tempstr=replace(tempstr,chr(60),"") ' <
tempstr=replace(tempstr,chr(62),"") ' >
tempstr=replace(tempstr,chr(37),"") ' %
tempstr=replace(tempstr,chr(38),"") ' &
tempstr=replace(tempstr,chr(40),"") ' (
tempstr=replace(tempstr,chr(41),"") ' )
tempstr=replace(tempstr,chr(59),"") ' ;
tempstr=replace(tempstr,chr(43),"") ' +
tempstr=replace(tempstr,chr(45),"") ' -
'tempstr=replace(tempstr,chr(91),"") ' [
'tempstr=replace(tempstr,chr(93),"") ' ]
tempstr=replace(tempstr,chr(123),"") ' {
tempstr=replace(tempstr,chr(125),"") ' }
JaKillStr=tempstr
End Function


'*******************
'屏蔽字符
'*******************
Public Function ChkBadWords(fString,BadWords)
bwords = Split(BadWords, "|")
For i = 0 To ubound(bwords)
fString = Replace(fString, bwords(i), string(len(bwords(i)),"*"), 1,-1,1)
Next
ChkBadWords = fString
End Function
'*********************
' 过滤HTML字符
'*********************
Public Function HTMLEncode(fString)
If IsNull(fString) Or fString="" Then
HTMLEncode=""
Exit Function
End If
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
End Function
'***************
'传字符值
'***************
Public Function GetStr(Index)
Temp = Request(Index)
If IsEmpty(Temp) Then
Temp = ""
Else
Temp = SQLStr(Temp)
End If
GetStr = Temp
End Function

Public Function SQLStr(Str)
Dim SQLin(4),SQLout(4),i
SQLin(0) = "'"
SQLin(1) = " "
SQLin(2) = Chr(0)
SQLin(3) = "{"
SQLin(4) = "}"
SQLout(0) = "'"
SQLout(1) = " "
SQLout(2) = ""
SQLout(3) = "{"
SQLout(4) = "}"
For i=0 to 3
Str = Replace(Str,SQLin(i),SQLout(i))
Next
SQLStr = Str
End Function


'***************
'传数字值
'*************
Public Function GetNum(Index)
Temp = Request(Index)
If Not IsEmpty(Temp) And IsNumeric(Temp) Then
GetNum = Clng(Temp)
ElseIf InStr(Temp,"'")>0 Then
GetNum = "IsErr"
Else
GetNum = 0
End If
End Function
'***************
'过滤JS
'*************
Public Function FixJs(Str)
If Str <>"" Then
'Str = Replace(Str,VBcrlf,"\n")
'Str = replace(str,"\", "\\")
'Str = replace(str, chr(34), "\""")
'Str = replace(str, chr(39),"\'")
Str = replace(str, "</","<\/")
End If
Fixjs=Str
End Function
'插入Java脚本
Public Function JavaScript(ScriptName)
JavaScript = VBCRLF & "<Script language=JavaScript Src=Js/" & ScriptName & ".js></Script>" & VBCRLF
End Function
Public Function JsVar(EvenName,EvenValue)
JsVar = VBCRLF & "<Script language=JavaScript>var " & EvenName & " = """ & FixJs(EvenValue) & """;</Script>" & VBCRLF
End Function
Public Function JsVarItem(VarItem,VarValue)
Dim Item
i=0
Temp = VbCrlf & "<Script language=JavaScript>" & VbCrlf
For i=0 To Ubound(VarItem)
Temp = Temp & "var " & VarItem(i) & " = """ & FixJs(VarValue(i)) & """;"& VBCRLF
Next
Temp = Temp &"</Script>" &VBCRLF
JsVarItem=Temp
End Function

Public Function JsArray(ArrayName,ArrayValue)
Dim EvenName,i
JsArray = VBCRLF & "<Script language=JavaScript>" & VBCRLF
JsArray = JsArray & "var " & ArrayName & " = Array("
JsArray = JsArray & """" & Replace(ArrayValue,"|",""",""") & """"
JsArray = JsArray & ");" & VBCRLF & "</Script>" & VBCRLF
End Function

End Class
%>


mgan 2006-06-04
  • 打赏
  • 举报
 回复
<%
Class JaZone
Public Rs
Private SQL

Private Sub Class_Initialize()

End Sub

Private Sub Class_Terminate()
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub

Function echo(Str)
Response.Write Str & "</br>"
End Function

Function GetHeadElement(dbName,Uid,TableName,Num)
Set RS = Conn.ExeCute("SELECT "&dbName&" FROM ["&TableName&"] WHERE JaUid='"&Uid&"' "&Num&"")
GetHeadElement=Rs.GetString(,1, "<><><>","$$$","")
End Function

Function GetRsElement(dbName,Uid,TableName,Num)
Set Rs = Conn.ExeCute("SELECT "&dbName&" FROM ["&TableName&"] WHERE JaUid='"&Uid&"' "&Num&"")
GetRsElement = Rs.GetRows(-1)
End Function

Function GetCount(dbName,TableName,Num)
GetCount = Conn.ExeCute("SELECT "&dbName&" FROM ["&TableName&"] "&Num&"")(0)
End Function

Function JaVicRecord(who,num,Uid)
If who<>"" and num <> "" Then
Set Rs = Conn.ExeCute("SELECT JaVicName FROM [JaVicList] WHERE JaVicName='"&who&"' and JaUid='"&Uid&"'")

if Not Rs.eof Then
Conn.ExeCute("Update [JaVicList] Set JaVicDate='"&now()&"' WHERE JaVicName='"&who&"' and JaUid='"&Uid&"'")
else
Conn.ExeCute("Insert Into [JaVicList](JaVicName,JaVicNum,JaUid)VALUES('"&who&"','"&num&"','"&Uid&"')")
Conn.ExeCute("Update [JaUser] Set JaVis=JaVis+1 WHERE JaUid='"&Uid&"'")
end if
end if
End Function

Sub JaVicBlog(dbname,TableName,Uid)
Conn.ExeCute("Update ["&TableName&"] Set "&dbname&" WHERE "&Uid&"")
End Sub

Function JaZoneL(Uid)
Dim i
i = 1
Set Rs = Conn.ExeCute("SELECT JaUid FROM [JaUser] ORDER BY JaVis DESC")
Do WHile Not Rs.Eof
If Uid=Trim(Rs(0)) Then
JaZoneL = i
Exit Function
End If
i = i + 1
Rs.Movenext
Loop
End Function

<!--------------------------------Tang--------------------------->

Function JaUserAdd(JaUID,Jauserna,Japwd,Jazonena,JaAge,JaBorn,Jasex,Jainter,Jaxue,Jaxin,Jamemo)
Set Rs = Server.CreateObject("Adodb.RecordSet")
SQL = "Select * From [JaUser]"
Rs.Open SQL,Conn,1,3
Rs.AddNew
Rs(0) = JaUID
Rs(1) = Jazonena
Rs(2) = Jauserna
Rs(3) = JaAge
Rs(4) = Jasex
Rs(5) = Jainter
Rs(6) = Jaxue
Rs(7) = Jaxin
Rs(8) = JaBorn
If Jasex = "男" Then Rs(9) = "00"
If Jasex = "女" Then Rs(9) = "01"
Rs(10) = 0
Rs(11) = 0
Rs(12) = date()
Rs(13) = Japwd
Rs(14) = Jamemo
Rs.Update
JaUserAdd = JaUID
End Function

Function JaUserID()
Set Rs = Conn.Execute("Select JaUid From [JaUser] Order By JaUid Desc")
If Not Rs.Eof Or Not Rs.Bof Then
JaUserID = Rs(0)+1
Else
JaUserID = "23638564"
End if
End Function

Function JaSelect(JaDB,JaWhere)
Set Rs = Conn.Execute("Select * From ["&JaDb&"] Where "&JaWhere&" ")
JaSelect = Rs.GetString(,1, "<><><>","","")
End Function

Sub JaInsert(JaDB,JaValue)
Conn.Execute("Insert Into ["&JaDB&"] "&JaValue&" ")
End Sub

Sub JaDelete(JaDB,JaWhere)
Conn.Execute("Delete From ["&JaDB&"] Where "&JaWhere&" ")
End Sub

Function JaCheckLogin(JaUserNa,JaUserPwd)
Set Rs = Conn.Execute("Select * From [JaUser] Where JaUname='"&JaUserNa&"' and JaPass='"&JaUserPwd&"'")
If Rs.Eof Then
JaCheckLogin = 0
Else
JaCheckLogin = 1
SESSION("LoginUserName") = Rs("JaUname")
SESSION("VicNum") = Rs("JaUid")
SESSION("LoginPwd") = Rs("JaPass")
End if
End Function

Function JaIsUser(Uid)
If SESSION("VicNum") = Uid And SESSION("LoginUserName")<>"" And SESSION("VicNum")<>"" And SESSION("LoginPwd")<>"" Then
JaIsUser = "yes"
Else
If SESSION("LoginUserName")<>"" And SESSION("VicNum")<>"" And SESSION("LoginPwd")<>"" Then
JaIsUser="IsRe"
Else
JaIsUser = "no"
End if
End if
End Function

Function GetBlogRe(dbName,TableName,BWhere)
Set RS = Conn.ExeCute("SELECT "&dbName&" FROM ["&TableName&"] WHERE "&BWhere&" ")
GetBlogRe = Rs.GetRows()
End Function


Function strLen(str)
On Error Resume Next
Dim WINNT_CHINESE
WINNT_CHINESE = (len("中国")=2)
If WINNT_CHINESE Then
Dim l,t,c
Dim i
l=len(str)
t=l
For i=1 to l
c = Asc(Mid(str,i,1))
If c<0 Then c=c+65536
If c>255 then
t=t+1
End if
Next
strLen=t
Else
strLen=len(str)
End if
If err.number<>0 then err.clear
End Function

go数据库mysql与redis
在一个数据库中的表看起来像一个简单的电子表格。 列: 一列(数据元素) 包含了相同类型的数据, 例如邮政编码的数据。 行：一行（=元组，或记录）是一组相关的数据，例如一条用户订阅的数据。 冗余：存储两倍数据...
将特殊字符插入数据库
最近测试的发现有的插入数据库的信息会丢失，一直不清楚怎么回事；今天仔细看了下数据库才知道一些特殊字符是不能直接插入数据库的，比如单引号在数据库语句中表示引用其他字符，如果向数据库直接插入“Tom's cat”这样的字符串就会失败。 那么这种情况要怎么解决呢？查了一下资料一般有两种方案：一种是先对字符串进行转义，然后插入数据库，这是根本的解决方案；还有一种不那么“本质”但是相当漂亮的方法，先对字符
Mysql数据库插入中文数据乱码，显示???
环境介绍： Ubuntu 18.04（x86_64） MySQL v_8.0.22 问题背景： 前端提交form表单到Server A Server A 转发请求到Server B Server B 插入数据到MySQL数据表 表象： 数据表中的中文字段显示为乱码 {???} 解决流程： 问题定位： 检查MySQL数据库的编码设置（由于手动插入中文数据没有出现乱码问题，所以这一步骤对我来讲不是那么care） // 登录mysql mysql -u root -p // 检查编码设置
Python解决插入数据库乱码问题
从网站上获取的信息要保存在本地数据库中，但是保存的过程中数据库的信息都变成了乱码，怎么解决呢？客官听我娓娓道来。 首先，保证以下四项的编码都是utf-8： 1. 代码 2. 数据库连接 3. 表的字符集格式 4. 插入的数据格式 每步的操作如下： 1. 保证代码的格式是utf-8，在代码最前面加上这句话 # -*- coding:utf8 -*- #首先用于确定编码，加上这
数据库基础之插入数据
如何利用SQL的INSERT语句将数据插入表中。 1、数据插入 INSERT用来将行插入（或添加）到数据库表。插入有几种方式： 插入完整的行； 插入行的一部分； 插入某些查询的结果。 提示：插入及系统安全 使用INSERT语句可能需要客户端/服务器DBMS中的特定安全权限。在你试图使用INSERT前，应该保证自己有足够的安全权限。 1.1、插入完整的行 把数据插入表中的最简单方法是使用基本的INSERT语法，它要求指定表名和插入到新行中的值。下面举一个例子： 输入: INSERT
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章