Question

ASP获取ID的问题

我做的是公司的介绍代码ABOUT.ASP
<li><a href="about.asp?id=1">企业简介</a></li>

<li><a href="about.asp?id=2">企业文化</a></li>

<li><a href="about.asp?id=3">设备展示</a></li>

<li><a href="about.asp?id=4">业务范围</a></li>
当别人点相应的栏目就从ACC调出相应的数据代码为：<%=contentlink(content)%>但是当在浏览器中输入ABOUT.ASP的时候，他就知道该自动调出那个页面了，我想让当别人输入ABOUT.ASP自动调出ABOUT.ASP?ID=1相应的内容，如果直接调用不行，那用跳转代码也可以

下面附上详细的代码：
<!--#include file="../Inc/Top.asp"-->

<%
lmid=request("id")
If Len(lmid)>=10 Then
response.write"<SCRIPT language=JavaScript>alert('ID不存在');"
response.write"javascript:window.close()</SCRIPT>"
else
sql="select * from lanmu where id="&cint(lmid)
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
content=rs("content")
webname=rs("webname")
lmname=rs("lmname")
keywords=rs("keywords")
description=rs("description")
rs.close
set rs=nothing
titlewords="--"&lmname
title=lmname
%>
<!-- #include file="../inc/Head.asp" -->

<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="213" height="14"> </td>
<td width="57"> </td>
<td width="730"> </td>
</tr>
<tr>
<td height="168" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="213" height="35" valign="top"><img src="../img/about.gif" width="210" height="35" /></td>
</tr>
<tr>
<td height="22" valign="top" background="../img/zhong.gif"class="online">

<%
sql="select * from lanmu where bigclass=1 or id=1 order by nb"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
if erji=True then
%>
<li><%=rs("lmname")%></li>
<% else%>
<li><a href="about.asp?id=<%=rs("id")%>"><%=rs("lmname")%></a></li>
<%
end if

rs.movenext
loop
rs.close
set rs=nothing
%></td>
</tr>
<tr>
<td height="11" valign="top"><img src="../img/top.jpg" width="213" height="11" /></td>
</tr>
<tr>
<td height="32"> </td>
</tr>

</table></td>
<td> </td>
<td rowspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="730" height="44" valign="top"><img src="../img/<%=lmname%>.jpg" /></td>
</tr>
<tr>
<td height="32" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="158" valign="top"><%=contentlink(content)%></td></tr>

</table></td>
</tr>
<tr>
<td height="66"> </td>
<td> </td>
</tr>
<tr>
<td height="59"> </td>
<td> </td>
<td> </td>
</tr>
</table>
<!-- #include file="../Inc/Foot.asp" -->
<%end if%>
加到那个位置合适呀！我都试过了不行呀我是菜 http://zhangli.va2.cn/daima.zip这个是源代码的地址请下载下来看看呀各位大侠，小弟实在没有招了

Answer 1

<%
Dim lmid
lid=Request.QueryString("id")
If lmid="" Or IsNull(lmid) Then
lmid=1
End If
If IsNumeric(lmid) Then
Response.Redirect("about.asp?id="&lmid)''本句可以不要
''根据lmid处理你的程序就可以了
End If
%>

Answer 2

lmid=request("id")
if lmid="" or not isnumeric(lmid) then
lmid = "1" 'or response.redirect("somepage.asp")
end if

Answer 3

其实可以这样
dim id

id = request("id")

select case id

case 1
....
case 2
....
case 3

case else

end select
这样写法比IF then 效率要高的多

Answer 4

luan