科汛的CMS在网站程序中真是出类拔萃，但它WAP程序，大约只能讲是勉强合格，本人这两天在做自己的WAP网站的，作为现在移动技术中是不可以缺少的一环。

科汛CMS的WAP标签中有个一终极分页列表，这是大家一个很常用的列表，在文章系统中，是不会有图片显示。但在图片系统中是有缩略图显示的,但图片显示效果却不敢恭维！四四方方，与数码相片严重失比例。

我们可以打开WAP目录下的LIST.asp文件，找到第202行，将下面代码中的红色部份改成你想要的长宽就可以了！

当然其它缩略图的比例也可以通过下段代码进行修改。

      Select Case KS.C_S(ChannelID,6)

          Case 1

       SqlStr = "SELECT ID,Title,TitleType,Intro,ArticleContent,AddDate,PhotoUrl,Popular,Fname,Changes FROM " & KS.C_S(ChannelID,2) & " Where ID in (" & TempIDArrStr & ") AND Verific=1 AND DelTF=0 order by IsTop Desc"

       If sType=1 Then

          TempStr = TempStr & KMRFObj.KS_A_L(ChannelID, SqlStr,False,PageParamArr(6), True,True,True)

       Else

          TempStr = TempStr & KMRFObj.KS_PicA_L(ChannelID,SqlStr,128,128,True,4,50,PageParamArr(6))

       End If

      

       Case 2

       SqlStr = "SELECT ID,Title,Tid,ReadPoint,InfoPurview,Fname,AddDate,PhotoUrl,PictureContent FROM " & KS.C_S(ChannelID,2) & " Where ID in (" & TempIDArrStr & ") AND Verific=1 AND DelTF=0 order by IsTop Desc"

       If sType=1 Then

          TempStr = TempStr & KMRFObj.KS_P_L(2,SqlStr,"180","120",3,PageParamArr(6),"")

       Else

          TempStr = TempStr & KMRFObj.KS_P_L(2,SqlStr,"180","120",2,PageParamArr(6),"")

       End If

      

       Case 3

       SqlStr = "SELECT ID,Title,Tid,DownVersion,PhotoUrl,DownContent FROM " & KS.C_S(Channelid,2) & " Where ID in (" & TempIDArrStr & ") AND Verific=1 AND DelTF=0 order by IsTop Desc"

       If sType=1 Then

          TempStr = TempStr & KMRFObj.KS_D_L(ChannelID,SqlStr,PageParamArr(6),1,"")

       Else

          TempStr = TempStr & KMRFObj.KS_C_PicD_L(ChannelID,SqlStr,128,128,True,4,50,PageParamArr(6))

       End If

      

       Case 5

       SqlStr = "SELECT ID,Title,Tid,Fname,AddDate,PhotoUrl,Discount,Price_Original,Price,Price_Market,Price_Member FROM KS_Product Where ID in (" & TempIDArrStr & ") AND Verific=1 AND DelTF=0 order by IsTop Desc"

       If sType=1 Then

          TempStr = TempStr & KMRFObj.KS_Pro_L(SqlStr,1,7,0,True,128,128,PageParamArr(6))

       Else

          TempStr = TempStr & KMRFObj.KS_Pro_L(SqlStr,6,7,0,True,128,128,PageParamArr(6))

       End If

      

       Case 8

       SqlStr = "SELECT ID,Title,Tid,Fname,AddDate,PhotoUrl,GQContent,TypeID,Province,City FROM KS_GQ Where ID in (" & TempIDArrStr & ") AND Verific=1 AND DelTF=0 order by IsTop Desc"

       If sType=1 Then

          TempStr = TempStr & KMRFObj.KS_S_L(SqlStr,1,128,128,60,30,"",False,True,True)

       Else

          TempStr = TempStr & KMRFObj.KS_S_L(SqlStr,4,128,128,60,30,"",False,True,True)

       End If

      End Select

不错，不过你能解决这个问题吗？

一起研究一下

http://bbs.kesion.com/forumthread-203385.html

wap域名跳转问题