asp+access显示数据并超链接怎么做？
asp+access做的网页
数据库表名sxyw，有id (自动编号),names（文章标题），intro(文章内容),time(时间)
现有2个网页，网页1将数据库里面的文章标题和时间显示出来
问：网页2想显示指定文章的文章标题和文章内容，
网页1的文章标题超链接点击连接到网页2，指定内容为网页1标题对应ID的文章，最好通过ID来显示的
形象点，就是http://www.dhrc.cn/里面人事工作动态那样！
补充：发下我QQ：83475619，谢谢！
答案：调用页面ASP：
Response.Write "<style> td {font-size:10pt}" & vbcrlf _
& ".tdbc0 {color:#ff0000} .tdbc1 {color:#ffff00} .tdbc2 {color:#808000} .tdbc3 {color:#0000ff} .tdbc5 {color:#00ff00}" & vbcrlf _
& ".TDJHZX1 {font-size:10pt} .TDJHZX2 {background:#224466;font-weight:bolder;color:#ffffff;font-size:11pt}" & vbcrlf _
& "</style><body style='margin:4;background:#99aacc' scroll=no><table width='100%' height='100%' border=1 cellspacing=0 cellpadding=0><tr><td valign='top' width='*' rowspan=2>" & vbcrlf _
& "<div id='dvbc' style='overflow:auto;width:100%;height:100%'><table id=tbbc border=0 cellspacing=0 border=0 style='cursor:default' onclick='shbc()' cellspacing=0></table></div>" & vbcrlf _
& "</td></tr></table><iframe id=""fsb"" name=""fsb"" style='position:absolute;top:2;left:2;width:600;height:0' border=0 frameBorder=0></iframe>" & vbcrlf _
& "<script>var gf,ojh,trIdx=1;" & vbcrlf _
& "function JHS(rq,f){var s=rq.split(""-""),o=trjhzx.insertCell();o.rq=rq;o.innerText=s[2],o.title=rq;o.style.color=(f)?""#ff0000"":""#00ffff"";o.width='5%'}" & vbcrlf _
& "function ICS(c,t,p,s){var otd,otr=tbbc.insertRow();otr.className=""trb""+p;otr.cn=c;otd=otr.insertCell();otd.innerText=(trIdx++)+'、'+t;otd.title=t;otd.className=""tdbc""+p}" & vbcrlf _
& "function shbc(s){if(!s){var i=0;o=event.srcElement;for(;i<4&&o.tagName!='TR';i++)o=o.parentElement;if(i>3)return;s=o.cn};gofnc('bbs.asp','fsb',['fnc','bc','tid',s])}" & vbcrlf
Response.Write "function addfElh(n,val){var el=document.createElement(""<INPUT TYPE='hidden' NAME='""+n+""'>"");el.value=val;gf.appendChild(el);}" & vbcrlf _
& "function gofnc(a,t,g){try{gf.parentNode.removeChild(gf)}catch(e){};gf=document.createElement(""form"");document.getElementsByTagName(""body"")[0].appendChild(gf);" & vbcrlf _
& "if(g)for(i=0;i<g.length;i+=2)addfElh(g[i],g[i+1]);gf.target=t;gf.action=a;gf.method =""post"";gf.style.cssText=""margin:0"";gf.submit();}" & vbcrlf
checkData RS, "select id,names title,1 priorno, time fromtime from sxyw order by fromtime desc"
dim bcIndex
bcIndex = 0
do while not RS.EOF
bcIndex = bcIndex + 1
Response.Write "ICS(" & cstr(RS("id")) & ",'" & getRSJ(RS("title")) & "'," & cstr(RS("priorno")) & ",'" & cstr(RS("fromtime")) & "');" & vbcrlf
RS.MoveNext
if bcIndex > 49 then exit do
loop
if RS.RecordCount > 0 then
RS.MoveFirst
Response.Write "shbc(" & cstr(RS("id")) & ");"
end if
dim nowDay
if checkData(RS, "select trunc(sysdate) from dual") > 0 then
nowDay = cdate(RS(0))
else
nowDay = date()
end if
for bcIndex = -12 to 0
Response.Write "JHS(""" & cstr(DateAdd("d", bcIndex, nowday)) & """,1);"
next
for bcIndex = 1 to 7
Response.Write "JHS(""" & cstr(DateAdd("d", bcIndex, nowday)) & """,0);"
next
Response.Write vbcrlf & "setTimeout(""trjhzx.cells[12].click()"",1);" & vbcrlf
Response.Write "</script>"
答案补充'公共函数1
function getNVL(v,d)
if isnull(v) then
getNVL = d
else
getNVL = cstr(v)
end if
end function
function getRSHTML(vData)
if isnull(vData) then
getRSHTML = ""
else
vData = replace(cstr(vData), vbcrlf, "<br>")
getRSHTML = replace(vData, chr(10), "<br>")
end if
end function
答案补充我有源代码。请加我，我发给你。完整的，我目前就是这样访问的。
写在一个文件中就能完成，采用IFRAME弹出子窗口显示，很方便，客户也正在使用中。
在数据库中做一个主外建的关系，在根据你的SQL主外键去查询就可以了。
先把id (自动编号),names（文章标题）从数据库里面查询出来现在是网页中
然后对现实的内容进行超连接并且把id传过去可以用？传值（用来确定你点击的是那一条的标题）然后根据你的id在进行精确查找并显示
或者是你一次把所有的数据都查出来点击之后直接传过去（不推荐使用）
上一个：asp.net简单聊天室代码怎么写？
下一个：asp与asp.net有什么区别?
