回复：（愿望）呃……被你搞晕了，你最好去找本 HTML ...
是要全部的源码！还是只要插入位置的代码！
楼上的哥哥各种方法我都试过了就是不行！我把文件发上来吧！晕死了
各位大大帮帮我啊 谢谢了首页文件我传上来了下面的是要调用的文件的代码
<bgsound src="images/mail.wav" border=0>
<%
Rem ==========交友中心通用函数=========
'页面错误提示信息
sub MsLove_error()
%>
<tr align=center>
<th width="100%" height=25 colspan=2>交友中心错误信息
</td>
</tr>
<tr>
<td width="100%" class=tablebody1 colspan=2>
<b>产生错误的可能原因：</b><br><br>
<li>您是否仔细阅读了<a href="help.asp">帮助文件</a>，可能您还没有登陆或者不具有使用当前功能的权限。
<%=errmsg%>
</td></tr>
<%if not founduser then%>
<form action="login.asp?action=chk" method=post>
<tr>
<th colspan=2 align=center height=25>请输入您的用户名、密码登陆</td></tr>
<tr>
<td class=tablebody1>请输入您的用户名</td>
<td class=tablebody1><input class=2 name=username type=text> <a href=reg.asp>
没有注册？</a></td></tr>
<%if Cint(Codeshow(1))=1 then%>
<TR>
<TD width=40% height="25" class=tablebody1><strong>请输入验证码</strong></TD>
<TD class=tablebody1> <input type="text" name="codestr" maxlength="4" size="4"> <%=GetCode()%></TD>
</TR>
<%end if%>
<tr>
<td class=tablebody1>请输入您的密码</font></td>
<td class=tablebody1><input class=2 name=password type=password> <a href=lostpass.asp>
忘记密码？</a></td></tr>
<tr>
<td class=tablebody1 width=30% ><b>Cookie 选项</b><BR> 请选择你的 Cookie
保存时间，下次访问可以方便输入。</td>
<td class=tablebody1> <input type=radio name=CookieDate value=0 checked>不保存，关闭浏览器就失效<br>
<input type=radio name=CookieDate value=1>保存一天<br>
<input type=radio name=CookieDate value=2>保存一月<br>
<input type=radio name=CookieDate value=3>保存一年<br> </td></tr>
<tr>
<td width=30% class=tablebody1><b>隐身登陆</b><BR>
您可以选择隐身登陆，交友中心会员将在用户列表看不到您的信息。</td>
<td class=tablebody1> <input type=radio name=userhidden value=2 checked>正常登陆<br>
<input type=radio name=userhidden value=1>隐身登陆<br>
</td></tr>
<input type=hidden name=comeurl value="<%=Request.ServerVariables("HTTP_REFERER")%>">
<tr>
<td class=tablebody2 colspan=2 align=center><input class=2 type=submit name=submit value="登 陆"> <input class=2 type=button name="back" value="返 回" onClick="location.href='<%=Request.ServerVariables("HTTP_REFERER")%>'"></td></tr>
</form>
<%else%>
<tr>
<td class=tablebody2 colspan=2 align=center><a href="<%=Request.ServerVariables("HTTP_REFERER")%>">
<<返回上一页</a></td></tr>
<%end if%>
</table>
<%
end sub
sub MsLove_suc()
%>
<tr align=center>
<th width="100%">交友中心成功信息
</td>
</tr>
<tr>
<td width="100%" class=tablebody1>
<b>操作成功：</b><br><br>
<%=sucmsg%>
</td></tr>
<tr align=center><td width="100%" class=tablebody2>
<a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><<返回上一页</a>
</td></tr>
</table>
<%
end sub
sub nav()%>
<html>
<head>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<meta name="keywords" content="缘来交友网站亚洲交友中心中国交友中心爱情交友缘来网征婚征婚交友婚介情人爱人网恋恋爱广州交友深圳交友北京交友上海交友珠海交友湖南交友长沙交友重庆交友四川交友成都交友"/>
<meta name="DESCRIPTION" content="缘来交友网站亚洲交友中心中国交友中心爱情交友缘来网征婚征婚交友婚介情人爱人网恋恋爱广州交友深圳交友北京交友上海交友珠海交友湖南交友长沙交友重庆交友四川交友成都交友" />
<title><%=webname%>--<%=stats%></title>
<!--#include file=inc/click_js.asp-->
<!--#include file=inc/menu.asp-->
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
//-->
</SCRIPT>
</head>
<body topmargin="0">
<script src="inc/main.js" type="text/javascript"></script>
<div class=menuskin id=popmenu
onmouseover="clearhidemenu();highlightmenu(event,'on')"
onmouseout="highlightmenu(event,'off');dynamichide(event)" style="Z-index:100"></div>
<%
if Cint(GroupSetting(0))=0 and (instr(scriptname,"reg.asp")=0 and instr(scriptname,"login.asp")=0) then
Errmsg=Errmsg+"<br>"+"<li>您没有浏览本交友中心的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
call head_var("","")
call MsLove_error()
response.end
end if
end sub
sub head_var(GetTitle,GetUrl)%>
<%end sub
sub indextop()%>
<tr>
<th height=28 colspan=4 align=center>　</th></tr>
<tr>
<% if not founduser then
response.Write "<td class=tableBody1 align=center valign=middle>"&_
"<table cellspacing=1 cellpadding=3 align=center border=0><tr>"&_
"<td class=tableBody1 align=center valign=middle><font color=blue>"&webname&"</font>，您还没有<font color=red>［<a href=reg.asp class=cblue>注册</a>］</font>或<font color=red>［<a href=login.asp class=cblue>登录</a>］</font></td>"&_
"</tr><form action=login.asp?action=chk method=post><tr>"&_
"<td class=tablebody1 height=40>"&_
"用户姓名：<input maxLength=20 name=username size=12>"
if Cint(Codeshow(0))=1 then
response.Write " <input type=text name=codestr maxlength=4 size=4> "
response.Write (GetCode())
end if
response.Write "<br>用户密码：<input maxLength=20 name=password size=12 type=password>"&_
"<select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select> "&_
"<input type=submit name=submit value=登录>"&_
"</td></tr></form></table></td>"
else
response.Write "<td class=tableBody1 align=center valign=middle width=80>"
response.Write("<IFrame src=visual_show2.asp?username="&membername&"&boardid=0&type=1&bgcolor=tablebody1 width=90 height=115 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=NO allowtransparency=true></iframe></td>")&_
"<td class=tableBody1 valign=middle>"
%>
<TABLE border=0 width="31%" align=center>
<TR>
<td><a href="JavaScript:openScript('messanger.asp?action=new',200,100)">
发短信</a>
※
<%
if Cint(newincept())>Cint(0) then
if Cint(Msgautoopen)=1 then%> <script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%end if%> <bgsound src="images/mail.wav" border=0>
<a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="#ff0000"><%=newincept()%>
新</font></a>)
<% else %> <a href="usersms.asp?action=inbox">我的收件箱</a>
(<font color=gray>0 新</font>)
<%
end if
%> <font face=Wingdings color=blue>v</font>
<font color="red"><%=myClass%></font></td>
</TR>
<tr>
<td height="1" bgcolor=#6595D6 colspan="2"></td>
</tr>
<TR>
<td><a href="userdiary.asp">我的日记</a> ※ <a href="UserArticle.asp">我的文章</a>
※ <a href="Userphoto.asp">我的相册</a></td>
</TR>
<TR>
<td>魅力：<%=myuserep%> ※ 现金：<%=mymoney%> ※ 威望：<font color="red"><%=mypower%></font></td>
</TR>
<TR>
<td>您最后一次登录是在：<%=Now()%></td>
</TR>
</TABLE>
<%end if%></td>
<td width="250" align="center" class=tableBody1>
<p></td>
<td width="100" align="center" nowrap class=tableBody1> </td>
</tr>
</table>
<%end sub
sub getRe()
if userid<>"" and Friendjoin<>0 then
response.write "<img src=images/Forum_nav.gif>"&Friendjoin&" 人加入好友了"
end if
end sub
'统计留言
function newincept()
dim rsn
rsn=conn.execute("Select Count(id) From Ms_Message Where flag=0 and issend=1 and delR=0 And incept='"& membername &"'")
newincept=rsn(0)
set rsn=nothing
if isnull(newincept) then newincept=0
end function
function inceptid(stype)
set rs=conn.execute("Select top 1 id,sender From Ms_Message Where flag=0 and issend=1 and delR=0 And incept='"& membername &"'")
if stype=1 then
inceptid=rs(0)
else
inceptid=rs(1)
end if
set rs=nothing
end function
sub footer()''底部定义
Dim Endtime
Endtime = Timer()%>
</p>
</body>
</html>
<%
call CloseConn()
end sub
%>
2007-08-08 10:06
