wm.skin_label_guestbook.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<%
	   WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetGuestBook\(","\)\}")
	   If WM_Content = "" Then WM_Content = "10,0,0,0,显示时将按此HTML代码显示，请按您上面的选项设置正确的HTML代码，此代码中不能出现“{$Get”、“)}”等字符"
	   a_Content = Split(WM_Content,",")
	   AddLabel = AddLabel & "<input name=Action type=hidden value=SaveGuestBook>" & vbCrLf	   
	   AddLabel = AddLabel & "<table width='100%' border='0' align='center' cellpadding='3' cellspacing='1' class=td1>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td width='13%'>调用数量</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><input name=A_Num type=text size=10 maxlength=5 value='"&a_Content(0)&"'> <img src='img/help.gif' align='absmiddle' alt='最小为1'></td>"
	   AddLabel = AddLabel & "      <td width='13%'>标题最大字符数</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td width='20%'><input name=A_Len type=text size=10 maxlength=5 value='"&a_Content(1)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，0为不限制'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td width='13%'>省略号</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td width='21%'><select name='A_TitleEllipsis'><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(2)),0)&">不显示</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(2)),0)&">显示</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td>内容最大字符数</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td colspan=5><input name=A_ContentLen type=text size=10 maxlength=5 value='"&a_Content(3)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，0为不显示'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td3> " & vbCrLf
	   AddLabel = AddLabel & "      <td colspan=6>单个栏目HTML内容设定 <img src='img/help.gif' align='absmiddle' alt='内容显示时将按此HTML代码显示"&vbCrLf&"请按您上面的选项设置正确的HTML代码"&vbCrLf&"此代码中不能出现“,”、“{$Get”、“)}”等字符'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td colspan=6><INPUT type='hidden' name='Content' value="""&Server.HTMLEncode(Replace(a_Content(4),"§№§",","))&"""><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Tool=InGuestBook&Preview=Right' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='300'></IFRAME></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "</table>" & vbCrLf
%>