28,406
社区成员
发帖
与我相关
我的任务
分享请问我下面的代码有错么？
<html>
<head>
<script language="VBScript">
function UpdateDataFuc()
{
Dim connString As string = "User ID=sa;Initial Catalog=test;Data Source=192.19.17.61;Password=yang"
Dim myConnection As SqlConnection = new SqlConnection(connString)
Dim myCommand As SqlCommand = new SqlCommand("select * from photoData where PotoPath=''", myConnection)
Dim adap As SqlDataAdapter = new SqlDataAdapter()
Try
myConnection.Open()
adap.SelectCommand = command
adap.SelectCommand.ExecuteNonQuery()
Dim ds As DataSet = new DataSet()
adap.Fill(ds,"Region")
if (ds.Tables[0].Rows.Count > 0)
{
Dim strCmds As string = "update photoData set PotoPath=@PotoPath where id=@id"
Dim cmdUpModif As System.Data.SqlClient.SqlCommand = new SqlCommand(strCmds,myConnection)
cmdUpModif.Parameters.Add("@id",SqlDbType.Int,40)
cmdUpModif.Parameters.Add("@PotoPath",SqlDbType.NVarChar,40)
cmdUpModif.Parameters["@id"].Value = ds.Tables[0].Rows[0][0].ToString()
cmdUpModif.Parameters["@PotoPath"].Value = "wo de "
adap.UpdateCommand = cmdUpModif
if ( adap.UpdateCommand.ExecuteNonQuery() == -1 )
{
myConnection.Close()
}
else
{
myConnection.Close()
}
myConnection.Close()
}
</script>
</head>
<body onUnload="UpdateDataFuc()">
<INPUT id="File1" type="file" name="File1" runat="server">
</body>
</html>
<head>
<script language="VBScript">
function UpdateDataFuc()
{
Dim connString As string = "User ID=sa;Initial Catalog=test;Data Source=192.19.17.61;Password=yang"
Dim myConnection As SqlConnection = new SqlConnection(connString)
Dim myCommand As SqlCommand = new SqlCommand("select * from photoData where PotoPath=''", myConnection)
Dim adap As SqlDataAdapter = new SqlDataAdapter()
Try
myConnection.Open()
adap.SelectCommand = command
adap.SelectCommand.ExecuteNonQuery()
Dim ds As DataSet = new DataSet()
adap.Fill(ds,"Region")
if (ds.Tables[0].Rows.Count > 0)
{
Dim strCmds As string = "update photoData set PotoPath=@PotoPath where id=@id"
Dim cmdUpModif As System.Data.SqlClient.SqlCommand = new SqlCommand(strCmds,myConnection)
cmdUpModif.Parameters.Add("@id",SqlDbType.Int,40)
cmdUpModif.Parameters.Add("@PotoPath",SqlDbType.NVarChar,40)
cmdUpModif.Parameters["@id"].Value = ds.Tables[0].Rows[0][0].ToString()
cmdUpModif.Parameters["@PotoPath"].Value = "wo de "
adap.UpdateCommand = cmdUpModif
if ( adap.UpdateCommand.ExecuteNonQuery() == -1 )
{
myConnection.Close()
}
else
{
myConnection.Close()
}
myConnection.Close()
}
</script>
</head>
<body onUnload="UpdateDataFuc()">
<INPUT id="File1" type="file" name="File1" runat="server">
</body>
</html>
...全文
请发表友善的回复…
发表回复
wanghui0380 2006-02-23
- 打赏
- 举报
嘿嘿，在客户写数据连接，安全拉－－－
要是真这么写，估计你的程序一挂上去，不出两天你的服务就会变成“养马厂”
要是真这么写，估计你的程序一挂上去，不出两天你的服务就会变成“养马厂”
ouyanghc 2006-02-23
- 打赏
- 举报
好罗，做个好人咯！！！你用asp.net的C#帮我写一个吧。^_^
xxuu503 2006-02-23
- 打赏
- 举报
各个语言的大杂烩阿
<script language="VBScript">
//注明了是vbs
function UpdateDataFuc()
{
//这两行确是js的写法
Dim connString As string = "User ID=sa;Initial Catalog=test;Data Source=192.19.17.61;Password=yang"
//这一行是VB.NET的写法
搂住你真cool
<script language="VBScript">
//注明了是vbs
function UpdateDataFuc()
{
//这两行确是js的写法
Dim connString As string = "User ID=sa;Initial Catalog=test;Data Source=192.19.17.61;Password=yang"
//这一行是VB.NET的写法
搂住你真cool
cestar2005 2006-02-23
- 打赏
- 举报
晕,net的代码你跑到ASP版来问什么?
vb.net我没用过,asp.net我一般用C#来写脚本,所以帮你不到!~~
vb.net我没用过,asp.net我一般用C#来写脚本,所以帮你不到!~~
笨笨兔兔兔兔兔 2006-02-23
- 打赏
- 举报
你用.net么??还是asp3?
ouyanghc 2006-02-23
- 打赏
- 举报
不管是服务端还是客户端，只要帮我实现一个demo就行了
ouyanghc 2006-02-23
- 打赏
- 举报
不好意思的说，上面的代码是我从网上拷下来的，贴到html文件中运行又不对:(
我想通过客户端写一个函数，这个函数是用来操作数据库的(对数据库的查询及修改)
请问这个函数该怎么写那？我对vbscript一点都不懂。
我想通过客户端写一个函数，这个函数是用来操作数据库的(对数据库的查询及修改)
请问这个函数该怎么写那？我对vbscript一点都不懂。
笨笨兔兔兔兔兔 2006-02-23
- 打赏
- 举报
<script language="VB" runat="server">
tigerwen01 2006-02-23
- 打赏
- 举报
有错吧，VBScript脚本没有Dim connString As string = "User ID=sa;Initial Catalog=test;Data Source=192.19.17.61;Password=yang"
这样个的赋值格式,会提示“语句未结束”错误。
这样个的赋值格式,会提示“语句未结束”错误。
wanghui0380 2006-02-23
- 打赏
- 举报
晕了，晕了。一个春节没写代码，这世界变的我都不认得了
这为兄台，你这是asp.net还是asp？？客户端还是服务器端？？
这为兄台，你这是asp.net还是asp？？客户端还是服务器端？？
KimSoft 2006-02-23
- 打赏
- 举报
楼主没分清服务器端脚本和客户端脚本。
