friendlist.asp

来自「大家好」· ASP 代码 · 共 40 行

ASP
40
字号
<%@ language="vbscript" %>
<%
set con=Server.Createobject("ADODB.CONNECTION")
response.write application("dbcon_connectionstring")
con.open application("dbcon_connectionstring")
set rs=server.createobject("ADODB.RecordSet")
strsql="select friends from user_info where username='"&session("username")&"'"
response.write strsql
rs.open strsql,con
if rs.eof then
	response.write "你真孤独,目前还没有好友!"
	response.end
end if
dim mjj() as string
response.write rs("friends")
lists=cstr(rs("friends"))
response.write lists
mjj=split("'mjjj','mjjjjjjjjj'",",")
response.write friendlist
response.write mjj(0)
response.end


'dim mjj()=friendslist
i=0
while i<=ubound(mjj)
	response.write mjj(i)
	i=i+1
wend 
%>
<html>
<head>
<title>好友名单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF">

</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?