请问怎么加入内容到限制会员查看里面?谢谢!
源代码如下,现在这个代码只限制了数据库里面的Content内容查看,现在我要在限制查看里面加入一些不是数据库里的内容进里面去,如:下载地址<b><font color="#0000FF" size="4"><a href="<%=rs("Downurl")%>"><%=rs("Downtxt")%></a> 请问怎么加进去?谢谢!<%
if rs("yn")=1 then
Response.Write("<div style=""margin:40px auto;text-align:center;color:#ff0000;"">该软件还没有通过审核</div>")
end if
if rs("yn")= 0 then
If Rs("ReadPower") = "0" then
Response.Write(Content)
Else
If Rs("ReadPower") <> "" then
If (Not(Instr(","& Rs("ReadPower") &",",",0,") <> 0 Or Rs("ReadPower") = "0")) and rs("UserName") <> NewName Then
If Instr(","& Rs("ReadPower") &",",","& UserInfo(NewID,0) &",") > 0 Then
Response.Write(Content)
Else
Response.Write("<div style=""font-size:12px;color:#ff0000;text-align:center;padding:20px;"">对不起,你没有浏览权限,该软件只有<font color=blue>"&ShowlevelOption2(Rs("ReadPower"))&"</font>才能浏览</div>")
End if
Else
Response.Write(Content)
End if
Else
If CReadPower = "0" or CReadPower = "" then
Response.Write(Content)
Else
If (Not(Instr(","& CReadPower &",",",0,") <> 0 Or CReadPower = "0")) and rs("UserName") <> NewName Then
If Instr(","& CReadPower &",",","& UserInfo(NewID,0) &",") > 0 Then
Response.Write(Content)
Else
Response.Write("<div style=""font-size:12px;color:#ff0000;text-align:center;padding:20px;"">对不起,你没有浏览权限,该软件只有<font color=blue>"&ShowlevelOption2(CReadPower)&"</font>才能浏览</div>")
End if
Else
Response.Write(Content)
End if