偶想让调出数据库的内容(既有文本,也有图片的绝对地址),即按照原格式显示文本,又显示相应位置的图片,请高手帮忙修改一下,或给个详细的解决方法;谢谢!
代码:
<%
dim fString
fString = Recordset1.Fields.Item("nr").Value
function HTMLEncode(fString)
if not isnull(fString) then
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 if
end function
%>
原数据是用文本框提交的
图片用<img src="/sunnyday/car/1.jpg">
谢谢
http://221.214.180.66/sunnyday/sunny.asp(偶的空间)
vb的小问题。高手请进
要解决VB的小问题,首先在菜单中找到“工程\/引用\/Microsoft Script Control 1。0”,确保前面有勾,然后点击OK,你将获得满意的答案,并且得到高分。在代码中,我们定义了几个变量。`Dim objScript As New ScriptControl` 创建了一个新的ScriptControl对象。`a As Double, x As Double, y As String`...
关于VB二进制计算,高手请进!在线等答案。
str_3 = Right("00000000" & "1", 8)a = 1 b = 255 c = a And b 'c就是你要的and运算的结果1,然后你再转成二进制表示法
VB高手请速度进,明天要,在线等待 奉上全部家当只求一解!!!
Set mrc = ExecuteSQL(txtSQL, MsgText)这个语句返回的是一个 空值 所以 mrc = nothing. 自然不能 . 任何东西 程序多大 , 数据库是什么的, 如果是 access 的, 请一起打包给我发过来, 我看看 给我发消息, 我给你邮箱 先说明不一定能帮上忙 ...
vb高手请进(10点之前在线等)
对象变量或 With 块变量没有设置(错误 91)创建对象变量有两个步骤。第一,必须先声明对象变量。然后必须用 Set 语句将一个正确的引用赋值给对象变量。同样地,With...End With 块必须先用 With 语句进入点来执行初始化。此错误有以下的原因和解决方法:试图使用的对象变量,还没有用一个正确对象的...
VB6.0的几个问题!高手请进!
问题一 没条件意味着出错,要不就是死循环,在这他只意味着运行一次 问题二 CLng 函数总是将其四舍五入为最接近该数的偶数 如, 0.5 四舍五入为 0
请VB高手进来看看,急死拉!!
If myval = vbYes Then mystr = InputBox("请输入文件名称", "输入窗口")If Len(mystr) = 0 Then MsgBox "系统不允许文件名称为空!", , "提示窗口"Exit Sub End If On Error GoTo ErrSave newsheet.SaveAs App.Path & "\\Excel文件\\" & mystr & ".xls"MsgBox "Excel文件保存成功...
vb高手请进
其中,upperbound为上限,lowerbound为下限。例如,要生成5至10的随机整数,可使用:Int(6 * Rnd + 5)。实际应用中,RND为伪随机数,可通过设定可变种子,如时间,实现真正的随机性。若需生成偶数,可先通过INT确保结果为整数,然后进行偶数判断或再次随机。正确实现需注意随机数的生成机制及结果的处理...
vb高手请进,模拟Select Case 语句.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("正确输入先") Exit Sub End If Dim k As Integer Select Case TextBox2.Text Case "一" k = 1 Case "二...
vb 高手请进,加载问题
原因可能有两种:1、另一台电脑没有安装VB程序,可能缺少程序执行需要的库文件,你可以先将程序打成安装包,再复制到另一台电脑,安装后就可以运行了。2、另一台电脑安装了VB程序,但编写的程序中需要加载某些文件,而这台电脑没有对应的文件,你只需要将加载的文件(路径也要一致)复制到另一台电脑...
vb高手请进(有高分)
我试验过了,你把For n = 1 To 6改成For n = 1 To 1000,然后下面加上一局C=0,则会打印出6,28,496这三个数字了 问题解决了,最后看你能加多少高分咯~最后再提醒下,记得把你的form的autoredraw属性设置成true,否则无法在屏幕打印的,你就看不到结果了 ...