Dim insstr As String = "insert into gp(xqgy,sl,yq) values('" & xqgy.Text & "','" & sl.Text & "','" & yq.Text & "')"
Dim objcommand As New SqlCommand
objconnection.Open() objcommand = New SqlCommand(insstr, objconnection)
objcommand.ExecuteNonQuery()
objconnection.Close()
Dim objcommand As New SqlCommand
objconnection.Open() objcommand = New SqlCommand(insstr, objconnection)
objcommand.ExecuteNonQuery()
objconnection.Close()
If objdataset.Tables("tmpdg").Rows.Count <= 0 Then
'Response.Write(insstr)
'Response.End()
Dim cont As String Dim endcont As String Dim i
For i = 1 To Len(yq.Value)
If Mid(yq.Value, i, 1) = Chr(13) Then
cont = Mid(yq.Value, i, 1) & "<br>"
endcont = endcont & cont
Else
endcont = endcont & Mid(yq.Value, i, 1)
End If
Next
'Response.Write(endcont)
'Response.End()
Dim insstr As String = "insert into gp(xqgy,sl,yq) values('" & xqgy.Text & "','" & sl.Text & "','" & endcont & "')"