在function中怎么实现ASP语句?

yuanfen127 2003-09-15 02:46:14
<!--#include file="conn.asp"-->
<html>
<head>
<title>客户资料</title>
<script language='javascript'>
function next()
{
}
</script>
</head>
<%
asima.open("select * from customers",con,3,2)
Response.write("欢迎你,<font color=red>" + Application("publicuser") + "</font>")
if (Application("publicpur")==1)
{ Response.write(",你可以对数据进行相关操作!") }
else
{ Response.write(",你只能查看数据!") }
%>
<form name=mainfo>
客户姓名<input type=text name=usern value="<%=asima.fields('username').value%>"><br>
家庭住址<input type=text name=usera value="<%=asima.fields('useradd').value%>"><br>
家庭电话<input type=text name=usert value="<%=asima.fields('usertel').value%>"><br>
购买时间<input type=text name=buyti value="<%=asima.fields('buytime').value%>"><br>
购买办理人<input type=text name=buyus value="<%=asima.fields('buyuser').value%>"><br>
总金额<input type=text name=total value="<%=asima.fields('totalmoney').value%>"><br>
处理器<input type=text name=cpucp value="<%=asima.fields('cpu').value%>"><br>
主板<input type=text name=mainb value="<%=asima.fields('mainboard').value%>"><br>
内存<input type=text name=memor value="<%=asima.fields('memory').value%>"><br>
硬盘<input type=text name=hardd value="<%=asima.fields('harddisk').value%>"><br>
显示器<input type=text name=displ value="<%=asima.fields('display').value%>"><br>
显卡<input type=text name=video value="<%=asima.fields('videocard').value%>"><br>
软驱<input type=text name=softd value="<%=asima.fields('softdisk').value%>"><br>
光驱/DVD光驱<input type=text name=cdvdr value="<%=asima.fields('cdrom').value%>"><br>
机箱<input type=text name=boxbo value="<%=asima.fields('box').value%>"><br>
键盘<input type=text name=keybo value="<%=asima.fields('keyboard').value%>"><br>
鼠标<input type=text name=mouse value="<%=asima.fields('mouse').value%>"><br>
音箱<input type=text name=sounc value="<%=asima.fields('soundbox').value%>"><br>
声卡<input type=text name=sounb value="<%=asima.fields('soundcard').value%>"><br>
<input type=button value="下一条记录" onclick='next()'>
</form>
</html>

代码如上,我想在next()中实现数据指针指向下一条记录,同时取出下一记录的内容,就是想
function next()
{ <%asima.movenext%>
mainfo.usern.value=<%=asima.fields('username').value%>
mainfo.usera.value=<%=asima.fields('useradd').value%>
}
可是<%%>语句不能混在<script language='javascirpt'>..</script>啊,还有什么办法?大家帮帮!
...全文
92 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
sx1123 2003-09-30
  • 打赏
  • 举报
 回复
你可以先作一个width=0,height=0的iframe
<input type="button" name="button1" onclick="vbscript:CallFunc()" value="ASP">

<script language="vbscript">
function CallFunc()
document.frames("iframeID").location.replace("xxx.asp")
end function
</script>

xxx.asp
执行asp代码
scycgjr 2003-09-29
  • 打赏
  • 举报
 回复
其实用js数组存储最好，速度快些
scycgjr 2003-09-29
  • 打赏
  • 举报
 回复
这应该用到asp的分页技术，可参看下面文档：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
<%''本程序文件名为：Pages.asp%>
<%''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>
<!--#Include File="adovbs.inc"-->
<%''＊建立数据库连接，这里是Oracle8.05数据库
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"

Set rs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象
rs.CursorLocation=adUseClient ''设定记录集指针属性
''＊设定一页内的记录总数，可根据需要进行调整
rs.PageSize=10

''＊设置查询语句
StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID"
rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>
<HTML>
<HEAD>
<title>分页示例</title>
<script language=javascript>
//点击"[第一页]"时响应：
function PageFirst()
{
document.MyForm.CurrentPage.selectedIndex=0;
document.MyForm.CurrentPage.onchange();
}
//点击"[上一页]"时响应：
function PagePrior()
{
document.MyForm.CurrentPage.selectedIndex--;
document.MyForm.CurrentPage.onchange();
}
//点击"[下一页]"时响应：
function PageNext()
{
document.MyForm.CurrentPage.selectedIndex++;
document.MyForm.CurrentPage.onchange();
}
//点击"[最后一页]"时响应：
function PageLast()
{
document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
document.MyForm.CurrentPage.onchange();
}
//选择"第？页"时响应：
function PageCurrent()
{ //Pages.asp是本程序的文件名
document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)
document.MyForm.submit();
}
</Script>
</HEAD>
<BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000"">

<%IF rs.Eof THEN
Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")
ELSE
''指定当前页码
If Request("CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("CurrentPage"))
End If

''创建表单MyForm,方法为Get
Response.Write("<form method=Get name=MyForm>")
Response.Write("<p align=center><font size=2 color=#008000>")
''设置翻页超链接
if rs.PageCount=1 then
Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
else
if rs.AbsolutePage=1 then
Response.Write("[第一页] [上一页] ")
Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")
Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")
else
if rs.AbsolutePage=rs.PageCount then
Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")
Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")
Response.Write("[下一页] [最后一页] ")
else
Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ")
Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ")
Response.Write("[<a href=javascript:PageNext()>下一页</a>] ")
Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")
end if
end if
end if

''创建下拉列表框，用于选择浏览页码
Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")
For i=1 to rs.PageCount
if rs.AbsolutePage=i then
Response.Write("<option selected>"&i&"</option>") ''当前页码
else
Response.Write("<option>"&i&"</option>")
end if
Next
Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>")
Response.Write("</form>")

''创建表格，用于显示
Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")
Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")

Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")

Set Columns=rs.Fields

''显示表头
For i=0 to Columns.Count-1
Response.Write("<td align=center width=200 height=13>")
Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>")
Next
Response.Write("</tr>")
''显示内容
For i=1 to rs.PageSize
Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")
For j=0 to Columns.Count-1
Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")
Next
Response.Write("</tr>")

rs.movenext
if rs.EOF then exit for
Next

Response.Write("</table>")
END IF
%>
</BODY>
</HTML>

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
yuanfen127 2003-09-29
  • 打赏
  • 举报
 回复
这种贴让我怎么结啊?
yuanfen127 2003-09-15
  • 打赏
  • 举报
 回复
你的意思是在JS中写<%...%>语句吗?
在JS中可以写以下函数?
function next()
{ <%asima.movenext%>
mainfo.usern.value=<%=asima.fields('username').value%>
mainfo.usera.value=<%=asima.fields('useradd').value%>
}
anita2li 2003-09-15
  • 打赏
  • 举报
 回复
用JS数组存储相关的数据就行了
yuanfen127 2003-09-15
  • 打赏
  • 举报
 回复
急用!请高手帮忙!
Linux内核tracers的实现原理与应用
在我仔细研究Linux内核中的ftrace框架之后，觉得各种tracer(包括function tracer, function graph tracer, kprobe/kretprobe trace_event等)的作用被人们严重低估了，如果能掌握它们的实现原理和很好的利用，不仅对...
ASP 实用Function集合
Str = Replace(Str,"(","") Str = Replace(Str,")","") getReplace = Trim(Str)End Function==================取出数组中字符组成带括号的新字符=
在ASP中使用SQL语句
在ASP中使用SQL语句 1，SELECT 语句 在SQL的世界里，最最基础的操作就是SELECT 语句了。在数据库工具下直接采用SQL的时候很多人都会熟悉下面的操作： window.attachEvent("onload",function (){AutoSizeDIV...
ASP页面function的写法即使用
最近做了一个网站 - 渝酒坊（http://www.wine22.com），由于预算有限，使用的是asp空间...写一个asp的function： function test (name) response.write("你的名字是："&name) end function 调用： test("渝酒坊")
html页面执行sql语句,关于在页面上执行sql语句
在页面上执行sql语句，首先在页面上顶一个文本域，让用户输入需要执行的sql语句。html代码如下： New Document 执行输入的sql:然后最重要的是如何获取选中的文本并且让其在后台执行sql并返回信息给前台。js代码如下...
JavaScript

87,903

社区成员

224,614

社区内容

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

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

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

+ 用AI写文章