演示地址：http://www.hopeangel.cn/bbs/2008-3/11/1503296204.html

代码如下：找到“CreateHtml.asp”这个文件

'读取用户信息
    set rs=conn.execute("select top 2 UserName,NickName,Sex,IDImage,IDiograph,Grade,Credit,Integral,Experience,MoneyNum,PostNum,RegTime,Admin,IDImagex,IDImagey from LxTel_User where UserName IN ("&RePostUser&")")

修改为：

 set rs=conn.execute("select top 2 UserName,NickName,Sex,IDImage,IDiograph,Grade,Credit,Integral,Experience,MoneyNum,PostNum,RegTime,Admin,IDImagex,IDImagey,Email,QQ from LxTel_User where UserName IN ("&RePostUser&")")

找到：

'计算等级
    UserDJName=UserDJ(UserInfo(7,UserInfoJ),UserInfo(8,UserInfoJ),UserInfo(6,UserInfoJ),UserInfo(10,UserInfoJ))

增加：

    Dim RSdj
    sql="select top 1 * from LxTel_User where UserName='"&UserName&"' "
    Set RSdj = Server.CreateObject("ADODB.Recordset")
    RSdj.open sql,conn,1,1
    if RSdj.bof and RSdj.eof then
    Response.Write "<p align=""center"">没有找到这个用户</p>"
    end if
    aRS=RSdj.GetRows(-1)
    aRSs.Close
    dim rsdj,rsdj2,djname,userdjnum
    Set rsdj = Server.CreateObject("ADODB.Recordset")
    rsdj2="select * from LxTel_UserDJ where jf<="&Rsdj(26,0)&" and jy<="&Rsdj(27,0)&" and sw<="&Rsdj(25,0)&" and postnum<="&Rsdj(29,0)&" order by userdj "
    rsdj.open rsdj2,conn,1,1
    if not(rsdj.BOF and rsdj.EOF) then
    rsdj.MoveLast
    userdjnum=rsdj("userdj")
    else
    userdjnum=0
    end if
    rsdj.close
    set rsdj=nothing

找到：

    PostBm = replace(PostBm, "$UserDJName$", UserDJName)              '用户等级名称

增加：    

    PostBm = replace(PostBm, "$userdjnum$", userdjnum)                '用户等级图片

这代码我是由用户中抽出来的，本来测试通过正常使用~！

ico.rar

谢啦

QUOTE:

原帖由 心头好 于 2008-3-29 8:51:22 发表 直接在设置等级的时候，插入IMG代码就是了，搞得这么麻烦，唉

具体一点 如何直接插入img