📄 friendlist.asp

📁 大家好

💻 ASP

字号:

<%@ 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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -